XL 2021 Problème d'impression

Bonjour à tous,

Je rencontre un petit problème lors de l'impression de mon document (je ne peux pas le partager le fichier car il est confidentiel) , j'ai pu faire une macro qui fonctionne mais le document s'imprime en double.
Voici la macro :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Reponse
Reponse = MsgBox("Avez-vous organisé les sauts de pages ?" & ActiveSheet.[F73] & " ?", _
vbYesNo + vbCritical, "Avertissement")
If Reponse = vbYes Then
Application.EnableEvents = False
ActiveSheet.PrintPreview
Application.EnableEvents = True
Else
Cancel = True
End If
End Sub

J'aimerais savoir si le code n'est pas correcte.

Cordialement.