Problème d'initialisation

Bonjour,

voici mon code pour rentrer dans mon programme client (j'ai au préalable ajouté des clients sur la feuille 2). Lorsque je rentre un numéro client correct et un mot de passe correct ca ne me marche pas..

Merci

Private Sub Valider_Click()

Dim i As Integer


If Not IsNumeric(Right(TextBox1, 1)) Then
MsgBox ("Numéro client incorrect")
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If

TextBox1 = a
i = a + 1

If Feuil2.Cells(i, 1) = "" Then
MsgBox ("Numéro client incorrect")
TextBox1 = ""

Else

If TextBox2 <> Feuil2.Cells(i, 5) Then
MsgBox ("Veuillez entrer un mot de passe correct")
TextBox2 = ""

Else

TextBox1 = ""
TextBox2 = ""
gestion.Show
End If
End If
 

End Sub