Sub macroJC()
Dim MDP$
MDP = InputBox("Saisir le mot de passe, svp.", "Identification", "ICI METTRE LE MOT DE PASSE")
Select Case MDP
Case 123
UserForm1.Show
Case Else
MsgBox "Mot de passe invalide": Exit Sub
End Select
End Sub
Select Case MDP
Case "toto"
J'ai fouillé le forum de font en comble