Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Select Case CloseMode
Case 0 'Ou Constante vbFormControlMenu
MsgBox 'Fermeture pas la Croix ou ''ALT F4'''
Case 1 'Ou Constante vbFormCode
MsgBox 'Fermeture programmation ''CommndButton'' ou autre'
Case Else
MsgBox 'Gros Plantage, ou Windows TaskManager, ou coupure EDF lol'
End Select
End Sub