Macro pour Message d'enregistrement sur Excel 2003

Bonjour a tous,

J'aimerais une macro pour afficher un message "Souhaitez-vous enregistrer avant de Fermer ? " lorsqu'on clique sur les X de fermeture des fenetres.

Si la personne clique sur "OUI" l'enregistrement se fait. Si elle clique sur "NON", la fenetre se ferme.

Merci pour votre aide

Private Sub Workbook_BeforeClose(Cancel As Boolean)
marep = msgbox("tuveuxsaver ?", vbyesno)
If marep = vbyes Then
thisworkbook.save
Else
application.displayalerts = false
thisworkbook.close
application.displayalerts = true
End If
End Sub

Merci Beaucoup et bonne journee.