Bonjour,

Peut-on écrire ce code différemment svp :

Sub Macro1()
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

En vous remerciant.

re,

J'aurai pu mettre le code, ce que je fais.

Sub Macro1()

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$88" '(Zone d'impression A1:L88 à adapter)
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

End Sub