Bonjour!

Je commence en vba et j'ai un classeur avec plusieurs feuille.
Je voudrais les mettre a la taille de l'ecran donc j'ai trouve une astuce.
Mon code ressemble a ca:

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
Sub Macro1()
 
    Sheets("Toto").Select
    Range("A1:AF37").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
    Sheets("Tata").Select
    Range("A1:T39").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
    Sheets("Titi 2012").Select
    Range("A1:AT1").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
    Sheets("Titi 2013").Select
    Range("A1:AT1").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
    MsgBox "Toutes les pages sont ajusté!"
End Sub
Ma question est si je créer une feuille Titi 2014, si il est possible de l'intégrer automatiquement (ou tout autre Titi 2015,2016,...).

J'ai chercher un peu partout donc je voulais essayer avec des conditions de style "If" mais le problème c'est que je voudrais que mon code vienne chercher toutes les feuilles avec le nom "Titi XXXX" avec XXXX aléatoire.
Et qu'ils les activent une par une pour que je puisse les ajustés..

En espérant avoir été assez clair.
(Si vous avez un code plus simple pour ajuster les pages je suis preneur ! )
Merci


P.S. : J'utilise Excel 2010