Bonjour,
Je voudrais reproduire l'action de sélectionner plusieurs feuilles pour y appliquer la même mise en page.

J'ai bien pensé à enregistrer une macro (ci-dessous) lorsque j'exécute les actions
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Macro1()
    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    Sheets("Feuil1").Activate
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = False
        .FitToPagesTall = 1
    End With
End Sub
Mais lorsque je la lance, le résultat ne s'applique que sur la feuille active et non sur les feuilles sélectionnées...
Je pense que c'est un problème de déclaration de l'objet sur lequel les actions doivent s'appliquer, mais... je cale...
Bien entendu je ne veux pas appliquer une boucle sur les feuilles pour y appliquer la mise en page car il y en a plus d'une cinquantaine...

Un peu d'aide serait la bienvenue... MERCI !