Dim MotDePass As String, reponse As String, cpt As Byte
cpt = 1
MotDePass = "$POI%*µ"
Do
reponse = InputBox("Saisissez votre mot de passe", "PASSWORD")
If cpt = 3 Then MsgBox "Vous n'avez pas accès à ce code": Exit Sub
If reponse <> MotDePass Then MsgBox "Mot de passe incorrect, plus que " & 3 - cpt & " essais."
cpt = cpt + 1
Loop While reponse <> MotDePass
MsgBox "Si vous voyez ce message c'est que vous avez tapé le bon mot de passe"
'ICI LA SUITE DE VOTRE CODE