Excel se bloque après l'exécution d'une macro événementielle "BeforeClose"

Bonjour à tous,

Dans un document modèle (xltm), je souhaite remplacer le message standard=
d'Excel à la fermeture d'un classeur (Voulez-vous enregistrer.. etc) par=
celui-ci, le problème c'est que bien que la procédure fonctionne comme=
je l'attend, une fois le classeur fermé, Excel reste figé (planté).
Quelqu'un pourrait me venir en aide :-)

'-
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Reponse As String
'On Error Resume next
With Application
.StatusBar = "Exécution de macro."
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
End With
If ActiveWorkbook.Saved = False Then
Reponse = MsgBox("Désires-tu sauvegarder les modifications?", vb=
YesNoCancel + vbInformation, "Attention, à l'historique des factures?")
If Reponse = vbNo Then
Sheets("Facture").[NO_Fact].Value = ""
[Control].Value = 2
ActiveWorkbook.Saved = True
With Application
.DisplayAlerts = True
.StatusBar = False
.EnableEvents = True
.ScreenUpdating = True
End With
ActiveWorkbook.Close SaveChanges:=False
ElseIf Reponse = vbYes Then
Sheets("Facture").[NO_Fact].Value = ""
[Control].Value = 2
Insérer ' Cette macro copie les données de la facture dans =
un classeur de sauvegarde
ActiveWorkbook.Save
Else
Cancel = True
End If
End If
With Application
.DisplayAlerts = True
.StatusBar = False
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
'

Merci d'avance pour votre aide,
cordialement,
Emile