Problème macro avec une recherche non numérique

Bonjour le Forum,

Voilà mon soucis pour lequel j'ai besoin de vos lumières.
Sur le morceau de macro ci-dessous j'ai besoin de rechercher dans un tableau en colonne A un type d'information contenant des chiffres, des - - et des lettres, par exemple 122-400-FR

If (IsNumeric(CAffi)) Then === > cela me permet de déterminer que c'est du numérique mais ça ne marche pas avant les - et autre lettres que je peux avoir à rechercher

Merci par avance de votre aide.

Sub Recher()

Dim lastLine As Long
Dim repere As Boolean
Dim trouve As Boolean
repere = False
trouve = False
lastLine = derniereLigne()

If (CFormulaire.DAffi = "") Then
vcontrat = 0
Else
CAffi = CFormulaire.DAffi
End If

If (CAffi <> 0) Then
If (IsNumeric(CAffi)) Then
ligne = 1
Do While (repere = False)
ligne = ligne + 1
If Cells(ligne, 1).Value = "" Then
repere = True
End If
If Cells(ligne, 1).Value = Val(CAffi) Then
repere = True
trouve = True
End If
Loop
CFormulaire.DManu = Cells(ligne, 2).Value
CFormulaire.DCase = Cells(ligne, 3).Value
CFormulaire.DVersion = Cells(ligne, 4).Value
CFormulaire.DCountry = Cells(ligne, 5).Value
CFormulaire.DDateIRF = Cells(ligne, 6).Value
CFormulaire.DDatereceived = Cells(ligne, 7).Value
CFormulaire.D1st = Cells(ligne, 8).Value
CFormulaire.D2nd = Cells(ligne, 9).Value
CFormulaire.D3rd = Cells(ligne, 10).Value
CFormulaire.DComments = Cells(ligne, 11).Value

Else
MsgBox ("Cas non trouvé")
End If
Else
MsgBox ("Veuillez saisir un numéro de cas valide SVP")
End If

End Sub