recherche avec textbox

Bonjour le forum

J'ai un textbox, quand je saisie une réf il alimente un deuxième textbox. Cela fonctionne
très bien quand je saisie des chiffres avec une lettre, mais quand je saisie que des chiffres cela ne fonctionne pas et je n'ai toujours pas trouvé de solution.

voici mon code

Private Sub TextBox_code_Client1_Change()
Dim cell As Range
For Each cell In Range("A2:A" & Range("A2").End(xlDown).Row)
If cell.Value = TextBox_code_Client1 Then
TextBox_Nom1.Value = cell.Offset(0, 1).Value
End If
Next cell
End Sub

Si un pro. de vba pourrait me donné un coup de pouce
Un grand merci d'avance

cdt poussy