Aperçu avant impréssion

Bonjour,
J'ai une macro qui empeche l'aperçu avant impression
comment l'annuler car elle bloque tous mes fichiers excels,merci:

Option Explicit
'myDearFriend! - mon Univers Excel... : myDearFriend! Excel Pages



Private Sub Workbook_Activate()
With Application.CommandBars
.FindControls(ID:=109).Item(1).OnAction = "ThisWorkbook.ApercuPerso"
.FindControls(ID:=109).Item(3).OnAction = "ThisWorkbook.ApercuPerso"
.FindControls(ID:=247).Item(8).Enabled = False
.FindControls(ID:=4).Item(3).Enabled = False
End With
End Sub
Private Sub Workbook_Deactivate()


With Application.CommandBars
.FindControls(ID:=109).Item(1).OnAction = ""
.FindControls(ID:=109).Item(3).OnAction = ""
.FindControls(ID:=247).Item(8).Enabled = True
.FindControls(ID:=4).Item(3).Enabled = True
End With
End Sub

Private Sub ApercuPerso()


ActiveSheet.PrintPreview False
End Sub