Probleme date

Bonjour,

Je travaille actuellement sur un petit programme qui quand on lui donne un nom de piece, renvoie les sous ensembles necessaires a sa fabrication. Il s'agit simplement de lire un enorme tableau excel et de renvoyer certains nombre nons nuls dedans.
Le programme marche , mais certains des noms de sous ensembles
ressemblent a des dates ..... et sont convertis en tant que tels

Par exemple

X-X
va devenir Mois/Annee

je voudrais empecher ce genre de chose. merci de Votre aide
'Length
Dim L As Integer
L = 256
'ColNum
Dim X As Integer
'Num de BM
Dim Bom As String
'Indice feuille resultat
Dim j As Integer
j = 1

'Look-recherche

If Not Sheets("Table BM-FG_1").Range("a1:IV1").Find(What:=numpart, lookat:=xlWhole) Is Nothing Then

ct = 1
X = Sheets("Table BM-FG_1").Range("A1:IV1").Find(What:=numpart, lookat:=xlWhole).Column
MsgBox ("Found column mumber " & X)
'Sortir du programme si la feuille existe deja
On Error GoTo Out
Worksheets.Add
ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = numpart

End If

'si on trouve pas

If ct = 0 Then
MsgBox ("Pas Trouve")

End If

'une fois qu'on a la colonne on cherche les Bm

If ct = 1 Then

For i = 2 To 5501

If Sheets("Table BM-FG_1").Cells(i, X).Value > 0 Then
Bom = Sheets("Table BM-FG_1").Cells(i, 1).Text
Sheets(numpart).Cells(j, 2).Value = Sheets("Table BM-FG_1").Cells(i, X).Value
Sheets(numpart).Cells(j, 1).Value = Sheets("Table BM-FG_1").Cells(i, 1).Value
j = j + 1
End If

Next i

End If

Exit Sub

Out:
MsgBox ("Deja Fait")

'pour enlever la msgbox
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True

End Sub

Autre chose , g essaye de remplacer "Sheets(numpart).Cells(j, 1).Value = Sheets("Table BM-FG_1").Cells(i, 1).Value" par Sheets(numpart).Cells(j, 1).text = Sheets("Table BM-FG_1").Cells(i, 1).text

et la plus rien ne marche .

Merci a tous