mise en page classeur exell (vba)

Bonjour,

Je suis débutant en programmation et je souhaite utiliser une marco pour mettre en forme toutes les feuilles de différents classeurs exell (format A3, reduction des marges et mode paysage).

Sachant que les classeurs n'ont pas nécessairement le même nombre de feuilles ou le même nom.

Voici ce que j'ai réussi à faire :

Sub Macro2()

 
    Sheets(Array("Page_1", "Page_2", "Page_3", "Page_4", "Page_5", "Page_6", "Page_7", _

        "Page_8", "Page_9", "Page_10", "Page_11", "Page_12", "Page_13", "Page_14", "Page_15", _

        "Page_16", "Page_17", "Page_18")).Select

    Sheets("Page_1").Activate

    With ActiveSheet.PageSetup

        .LeftHeader = ""

        .CenterHeader = ""

        .RightHeader = ""

        .LeftFooter = ""

        .CenterFooter = ""

        .RightFooter = ""

        .LeftMargin = Application.InchesToPoints(0.78740157480315)

        .RightMargin = Application.InchesToPoints(0.78740157480315)

        .TopMargin = Application.InchesToPoints(0.393700787401575)

        .BottomMargin = Application.InchesToPoints(0.393700787401575)

        .HeaderMargin = Application.InchesToPoints(0.393700787401575)

        .FooterMargin = Application.InchesToPoints(0.393700787401575)

        .PrintHeadings = False

        .PrintGridlines = False

        .PrintComments = xlPrintNoComments

        .CenterHorizontally = False

        .CenterVertically = False

        .Orientation = xlLandscape

        .Draft = False

        .PaperSize = xlPaperA3

        .FirstPageNumber = xlAutomatic

        .Order = xlDownThenOver

        .BlackAndWhite = False

        .Zoom = 100

    End With

End Sub

Mon problème c'est que je ne trouve pas la fonction me permettant de sélectionner toutes les pages d'un classeur quelque soit leurs noms ou leurs nombres et qui remplacerait donc les lignes 3, 4 et 5


Je vous remercie d'avance pour votre aide