Salut, j'ai le même problème que toi.
J'ai juste du code mais qui ferme la fenêtre acticve et non pas l'application.
Voici:
Dans un module:
Public bye As Boolean
bye = True
Thisworkbook.Save
Thisworkbook.Close
Dans Thisworkbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not bye
C'est tout ce que j'ai pour le moment si tu trouve autre chose merci de m'en faire part.
Bonne prog salut!