Problème d'initialisation

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