Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rép As VbMsgBoxResult
Rép = MsgBox("Attention, cette action va fermer l'application excel et tous ces fichiers ouverts. Souhaitez-vous continuer?", vbOKCancel, "Fermeture d'excel")
Stop
If Rép = vbOK And Cancel = False Then
Application.Run "Macros.xla!QUITTER"
Else
Cancel = True
End If
End Sub