Private Sub CBquitter_Click()
MsgBox("voulez vous sauvegarder toutes les applications et fermer Excel?", vbQuestion, "Avant de partir ...") = vbYes
réponse = MsgBox("voulez vous sauvegarder toutes les applications et fermer Excel?", vbQuestion, "Avant de partir ...")
If réponse = vbYes Then For Each Workbook In Application.Workbooks
Workbook.Save
Application.Quit
If réponse = vbNo Then ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub