Bonjour
Essaie ce Code dans le ThisWorkBook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Reponse = MsgBox("Voulez-vous enregistrer les modifications ?", vbYesNo, "Demande de confirmation")
If Reponse = 7 Then ActiveWorkbook.Close False
If Reponse = 1 Then ActiveWorkbook.Save
End Sub
Cordialement