Salut Bruno,
met cette procédure dans ton UserForm et voilà
'*
'La procédure événementielle (UserForm_QueryClose)suivante
'ne permet pas à l'utilisateur de fermer le UserForm en
'cliquant sur le bouton Fermeture
X).On envoie un message
'----------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Si ce message s'affiche, C'est que cette" _
& vbCrLf & "commande ne peut être exécutée pour " _
& vbCrLf & "sortir utiliser le bouton Quitter", _
vbOKOnly + vbCritical, "Fin de la commande"
Cancel = True
End If
End Sub
@+