Workbook_BeforeClose problème

Bonjour

Ma macro valide la saisie des champs obligatoires sur l'action sauvegarder. Par contre si je clique sur 'X' pour fermer le fichier, alors j'appel ma validation qui regarde si des cellules obligatoires ne sont pas remplis si oui alors j'affiche un message, sauf que lorsque je clique sur OK sur ce message d'avertissement tout de suite il y a un le message d'Excel qui me demande si je veux sauvegarder mes dernière modifications et si je clique OUI alors il m'affiche le message d'avertissement et ça tourne en rond.. Je ne sais pas comment gérer cela pour que le message de sauvegarde ne s'affiche pas.
Voici code qui est appelé dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim WorksheetAsError As Boolean
'Reset
WorksheetAsError = False

'Invoke validation
WorksheetAsError = ValidationChampObligatoire()

If WorksheetAsError = True Then
Cancel = True
'Application.DisplayAlerts = False ' Ne fonctionne pas
Else
Cancel = False
End If
End Sub


Merci de votre aide
Nadia