Private Sub boutonparametrage_Click() 'bouton "Paramétrage"
Unload Me 'ferme l'userform "Bienvenue"
debut: 'étiquette
mdp = Application.InputBox("Mot de passe", "Entrer le mdp") ' mise en place du mot de passe
If mdf = "" Then Exit Sub 'si le mot de passe n'est pas renseigné, sort de la procédure
If mdp <> "2012" Then ' le mot de passe est "2012"
MsgBox "Mdp incorrect", vbCritical 'si incorrect
GoTo debut 'va à l'étiquette "debut"
End If
userformparametrage.Show 'ouvre l'UserForm "Paramétrage"
End Sub