merci Petchy,je me suis inspiré de ton idee pour developpe ce code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
rep = MsgBox("Enregistrer?", _
vbYesNo + vbQuestion, "JM?")
If rep = vbYes Then
ActiveWorkbook.Save
End If
ThisWorkbook.Saved = True
Application.Quit
End Sub