Private Sub quitter_appli_Click()
Dim Message As String
Message = MsgBox("Voulez vous enregistrer?", vbYesNoCancel, "Quitter l'application")
If Message = 6 Then
ActiveWorkbook.Save
Application.Quit
ElseIf Message = 7 Then
ActiveWorkbook.Saved = True
Application.Quit
End If
End Sub