Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ActiveWorkbook.Saved Then
If MsgBox("Ce classeur à été modifié et non enregistré" & vbLf & "Voulez-vous l'enregistrer ?", 292, "Information") = 6 Then
ThisWorkbook.Save
Else
Cancel = True
End If
End If
End Sub