Private Sub Workbook_BeforeClose(Cancel As Boolean)
MonTest = MsgBox("Vous allez fermer le fichier !" & Chr$(10) & "Cliquer Oui pour enregistrer" & Chr$(10) & "Cliquer Non pour ne pas enregistrer", vbYesNoCancel)
Select Case MonTest
Case vbYes
ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close
Case vbNo
ActiveWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close
End Select
End Sub