Macro pour imprimer un tableau sur plusieurs pages

Bonjour,

Je souhaite faire une macro pour imprimer mon fichier en +/- 4 feuilles, pour la première page le code ci-dessous fonctionne

Sub imprimer()

With Worksheets("Feuil1").PageSetup
    .PrintArea = "$A$5:$CO$75"
    .Zoom = False
    .FitToPagesWide = 1
End With

Worksheets("Feuil1").PrintPreview

End Sub

(Si j'ajoute .FitToPagesTall = 1, le tableau est trop petit)

Mais pour la seconde page, avec le printarea = "$CP$5:$GC$75", ça me donne 90 pages et pas la bonne sélection de colonne.

Je ne sais pas trop quoi faire

Merci