Bonjour Haim,
Pour une fois que je peut aider quelqu'un, j'en profite :
La macro suivante ouvre un msgBox permettant de :
OUI : Quitter avec sauvegarde
NON : Quitter sans sauvegarde
Modifie le selon tes besoins
A+ Willy
Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Response, MyString
Dim Bsm
Msg = "Voulez vous sauvegarder avant de quitter ?" ' Définit le message.
Style = vbYesNo + vbQuestion + vbDefaultButton1 ' Définit les boutons.
Title = "QUITTER L'APPLICATION" ' Définit le titre.
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
For Each Bsm In Application.Workbooks
Bsm.Save
Next Bsm
Application.Quit
ThisWorkbook.Close False
Else
Application.Quit
ThisWorkbook.Close False
End If
End Sub