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

Bonjour =E0 tous,

Dans un document mod=E8le (xltm), je souhaite remplacer le message standard=
d'Excel =E0 la fermeture d'un classeur (Voulez-vous enregistrer.. etc) par=
celui-ci, le probl=E8me c'est que bien que la proc=E9dure fonctionne comme=
je l'attend, une fois le classeur ferm=E9, Excel reste fig=E9 (plant=E9).
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 =3D "Ex=E9cution de macro...."
.EnableEvents =3D False
.ScreenUpdating =3D False
.DisplayAlerts =3D False
End With
If ActiveWorkbook.Saved =3D False Then
Reponse =3D MsgBox("D=E9sires-tu sauvegarder les modifications?", vb=
YesNoCancel + vbInformation, "Attention, =E0 l'historique des factures?")
If Reponse =3D vbNo Then
Sheets("Facture").[NO_Fact].Value =3D ""
[Control].Value =3D 2
ActiveWorkbook.Saved =3D True
With Application
.DisplayAlerts =3D True
.StatusBar =3D False
.EnableEvents =3D True
.ScreenUpdating =3D True
End With
ActiveWorkbook.Close SaveChanges:=3DFalse
ElseIf Reponse =3D vbYes Then
Sheets("Facture").[NO_Fact].Value =3D ""
[Control].Value =3D 2
Ins=E9rer ' Cette macro copie les donn=E9es de la facture dans =
un classeur de sauvegarde
ActiveWorkbook.Save
Else
Cancel =3D True
End If
End If
With Application
.DisplayAlerts =3D True
.StatusBar =3D False
.EnableEvents =3D True
.ScreenUpdating =3D True
End With
End Sub
'---------------------------------------------------

Merci d'avance pour votre aide,
cordialement,
Emile