Sub mdp()
Dim essaiMdp, mdp As String
Dim essai As Integer
essai = 1
mdp = '1234'
While essai <= 3
essaiMdp = InputBox('Mot de passe ?')
If essaiMdp = mdp Then
flag = True
essai = 4
Else
essai = essai + 1
flag = False
End If
Wend
If flag = True Then
Sheets('Menu').Activate
Else
MsgBox 'Au revoir.'
ThisWorkbook.Saved = True
Workbooks('JOEL.xls').Close
End If
End Sub