Private Sub UserForm_Initialize()
Dim Mdp As String
Me.MultiPage1.Pages(0).Enabled = False
Me.MultiPage1.Pages(1).Enabled = False
Mdp = InputBox("Entrer le mot de passe.", "Identification:")
Select Case Mdp
Case Is = "Page1"
MultiPage1.Pages(0).Enabled = True
MultiPage1.Value = 0
Case Is = "Page2"
MultiPage1.Pages(1).Enabled = True
MultiPage1.Value = 1
Case Else
MsgBox "Impossible d'activer la page.", , "Erreur d'identification."
End Select
End Sub