Zones d'impression variables sur plusieurs onglets

Bonjour,

Je souhaiterais définir par une macro des zones d'impression variables pour plusieurs feuilles. Cette macro devra également générer un pied de page dynamique pour chacun des feuilles.

Chaque zone d'impression est définie ainsi:

PrintArea = "$A$1:$BA$34,$A$35:$BA$" & ActiveSheet.UsedRange.Rows.Count

Ce code fonctionne très bien sur la feuille selectionnée mais je ne parviens pas à l'appliquer à toutes les feuilles. Voici le code utilisé:

Sub mise_en_page()

Dim x As Byte

For x = 1 To Sheets.Count
    With Sheets(x).PageSetup
        .RightFooter = "&I" & Sheets("Traitements").Range("A2") & Chr(10) & "Page &P / &N"    ' définir le pied de page selon la valeur de la cellule A2 - feuille "traitement" et ajouter le nombre de pages
        .PrintArea = ""        'supprimer la zone d'impression active
        .PrintArea = "$A$1:$BA$34,$A$35:$BA$" & ActiveSheet.UsedRange.Rows.Count     'nouvelle zone d'impression selon la dernière ligne de la feuille
    End With
Next x

End Sub

Merci de votre aide

Bonjour,

Pas de piste pour mon problème?