Mot de passe inputbox

Sub TestPW()
    Dim Message, Title, Default, MyValue
    ' Définit le message.
    Message = "Entrez un mot de passe"
    Title = "Démo de protection simple"    ' Définit le titre.
    Default = "*****"
    ' Affiche le message, le titre et la valeur par défaut et
    ' lance la macro Test si le mot de passe est MyPW
    For i = 1 To 3
    If InputBox(Message, Title, Default) = "MyPW" Then
    MsgBox " Mot de passe correct"
    Exit Sub
    Else
    MsgBox " Mot de passe incorrect il vous reste" & "  " & i - 3 & "essai(s)sur 3 essais"
    End If
    Next i
    End Sub