Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim Reponse As Variant
MsgBox "Je vous remercie pour votre visite" _
& vbCrLf & " Cordialement" _
& vbCrLf & " MADA BLACK" _
, vbInformation, "REMERCIEMENT"
Reponse = MsgBox("Vous etes sur de sortir de ce programme ??'", vbYesNoCancel, "")
If Reponse = vbYes Then Unload Me Else Cancel = True
End Sub