Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'désactive la croix de fermeture de l'userform.
If CloseMode = 0 Then
MsgBox "Veuillez utiliser le bouton QUITTER", vbCritical, "Erreur"
Cancel = True
End If
End Sub
Private Sub CommandButton1_Click()
'permet de fermer l'userform
Unload UserForm1
End Sub