Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rép As VbMsgBoxResult
If Not Me.Saved Then Rép = MsgBox("Voulez vous enregistrer les modifications ?", _
vbYesNoCancel + vbQuestion, Me.Name) Else Rép = vbNo
Select Case Rép
Case vbCancel: Cancel = True: Exit Sub
Case vbNo: Me.Saved = True: Exit Sub
End Select
LesActions
Cancel = True
Application.EnableEvents = False
Me.Close SaveChanges:=True
Application.EnableEvents = True
End Sub