Bonjour à tous,

Je dois exécuter ce code pour tous les mois de l'année :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'----
Sub Scroll_And_Window_Appliquer()
 
    Application.ScreenUpdating = False
 
    Sheets("Janvier").Activate
        With ActiveSheet
            .ScrollArea = "A1:N100"
            .Columns("A:N").Select
            With ActiveWindow
                .Zoom = True
                .Zoom = ActiveWindow.Zoom '- 1.5
            End With
            [c9].Select
        End With
 
    Sheets("Février").Activate
        With ActiveSheet
            .ScrollArea = "A1:N100"
            .Columns("A:N").Select
            With ActiveWindow
                .Zoom = True
                .Zoom = ActiveWindow.Zoom '- 1.5
            End With
            [c9].Select
        End With
Etc...
'----
Je pensais faire une boucle à partir de :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
'----
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _
        "Septembre", "Octobre", "Novembre", "Décembre")).Select
'----
Je n'y parviens pas ! Est-ce possible ?
Nota : Je voudrais éviter une boucle à partir des "CodeName" car il y a plus de feuilles dans le classeur que les onglets "Mois" et les CodeName ne correspondent pas forcément au numéro de Mois (Janvier = 1 ; Février = 2 ; etc.)

Merci d'avance pour votre aide,

jpma75

PS : C'est ma première intervention sur le forum ; merci pour votre tolérance.