Comment ne pas avoir le message "voulez-vous savegarder..." en quittant Excel?

bonjour

essaye l'instruction application.displayalerts=false ( à insérer dans une procédure évenementielle du type suivant

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'if sheets("feuil1").range("A1").value=0 then cancel=true
application.displayalerts=false
'cette instruction est un exemple qui montre comment empêcher la fermeture du classeur

End Sub

Merci Stéphane

ThisWorkbook.Saved = True

Catherine