Sub test()
Dim Mdp As String
recom:
Mdp = InputBox("Veuillez saisir votre mot de passe", "Mot de passe")
If Mdp = "" Then Exit Sub
If IsNumeric(Application.Match(Mdp, Sheets("Code").Range("A:A"), 0)) Then
UserForm2.Show
Else
If MsgBox("Mot de passe non valide, voulez-vous réessayer ?", vbExclamation + vbRetryCancel, "Mot de passe incorrect") = vbRetry Then GoTo recom
End If
End Sub