Private Sub CommandButton1_Click()
If TextBox1.Text = Sheets("NomFeuille").Range("A2") And TextBox2.Text = Sheets("NomFeuille").Range("B2") Then
Sheets("Feuil2").Select
Unload Me
Else: MsgBox ("Mot de passe incorrect")
TextBox1.SetFocus
End If
End Sub