CHOIX = MsgBox("Voulez-vous enregistrer les modifications que vous avez apportées à " & ThisWorkbook.Name & " ?", vbExclamation + vbYesNoCancel)
Select Case CHOIX
Case vbYes
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
Application.DisplayAlerts = True
Case vbNo
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
Case vbCancel
End Select