Option Explicit
Private Sub Bt1_Click()
Dim x$
If mem > 2 Then
1 MsgBox "Vous ne Connaissez pas le Mot de passe n'insistez pas", vbCritical, "Fin des Essais"
Application.DisplayAlerts = 0
ThisWorkbook.Close
Else
If T1 <> "123" Then
mem = mem + 1
If 3 - mem <= 1 Then x = " Essai" Else x = " Essais"
If 3 - mem = 0 Then GoTo 1
MsgBox "Mot de Passe incorrect", vbCritical, "Vous avez encore " & 3 - mem & " " & x
T1 = ""
Exit Sub
End If
mem = 0
Unload Me
Feuil3.Visible = 1
Feuil3.Select
End If
End Sub