Problème macro impression

Bonjour à tous, j'ai trouvé une macro pour sélectionner une zone d'impression aléatoire , le problème c'est que celle-ci m'ouvre le panneau "Format de la forme". Sauriez vous comment l'annuler. Merci.

Voici le code

Sub PREVISION_Rectangle2_Cliquer()
With Range("B:AG")
Worksheets("PREVISION").Activate
ActiveSheet.PageSetup.PrintArea = Range("B4:AG" & .Find("*", .Item(1), , , , xlPrevious).Row).Address
End With
ActiveSheet.PrintPreview
End Sub