Selectionner plusieurs feuilles avec VBA

Merci à tous trois pour vous être pencher sur ma question!

Patrice a bien compris ma question, je veux sélectionner avec les index et non par les noms.

Pour dire très exactement les choses, j'ai un planning (plusieurs) en 53 semaines, avec la place qu'occupe chaque participant chaque demi-journée. Chaque feuille se nomme "Sem01, Sem02, Sem03, ...etc..., Sem53". Environ chaque trimestre, je veux sauvegarder la période passée pour pouvoir préparer la période correspondante de l'année suivante en basculant les semaines en question à la suite des semaines encore à venir de l'année en cours.
J'ai une procédure VBA pour exécuter cette dernière manip, et je voudrais compléter par la manip de sauvegarde que je fais aujourd'hui à la main. Mais pour cela, il faut que je puisse appeler mes feuilles par leur index et non pas par leur nom puisqu'il est changeant selon que nous sommes à la fin du printemps ou de l'automne, ou autre.
En fait l'idéal pour moi serait un appel de feuille comparable à celui des cellules ou des pavés sur le mode "Cells(l,c)" ou encore "range(cells(L1,C1),cells(L2,C2))"

Je reprends la proposition de Patrice:

'Tableau de 2 valeurs
ReDim tblIndex(1)
'Définition des 2 feuilles
tblIndex(0) = 2
tblIndex(1) = 4

Peux-tu m'expliquer un peu cette écriture?
Que signifie : "tblIndex(0) = 2" et "tblIndex(1) = 4", et comment l'intégrer dans mon code? Puis-je à l'arrivée sélectionner (appeler) mes feuilles par leur position dans le cahier (WorkBook)?
Encore merci!

Bonjour,

Si tu emploies cette ligne de code :

Workbooks("classeur1").Sheets(Array("tata", "titi", "toto")).Copy

tu copies tes 3 feuilles nommées dans un nouveau classeur : est-ce ce que tu souhaites ?

Bonjour,

Pour sélectionner plusieurs feuilles d'après leur index, il faut utiliser un tableau, par exemple :

Sub Test()
Dim tblIndex() As Integer

'Tableau de 2 valeurs
ReDim tblIndex(1)

'Définition des 2 feuilles
tblIndex(0) = 2
tblIndex(1) = 4

'Ajouter une feuille
ReDim Preserve tblIndex(2)
tblIndex(2) = 5

Worksheets(tblIndex).Select

End Sub