Index - Equiv en VBA

Bonjour,

je suis en train d'essayer de faire une macro VBA en utilisant les formules Index et Equiv d'Excel, mais j'ai un souci sur l'appel des feuilles.
Voici mon souci:
les pages sur lesquelles s'applquent la formule sont variables: je veux faire une moyenne glissante sur 4 semaines au fur et à mesure de l'année. (une page se créé chaque semaine).
voici la partie du code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

nbsemaine = Sheets.Count - 4 Worksheets("S" & nbsemaine).Activate   If nbsemaine > 3 Then 'calcul de la moyenne glissante sur 4 semaines   '=INDEX(tableau_contenant _la_valeur_à_renvoyer;EQUIV(valeur_recherchée;Tableau_contenant_la_valeur_recherchée;0))   Range("C5").Select ActiveCell.FormulaR1C1 = _ "=AVERAGE(INDEX('S10'!RC[-1]:R[29]C[-1],MATCH('S11'!RC[-2],'S10'!RC[-2]:R[29]C[-2],0)),INDEX('S9'!RC[-1]:R[29]C[-1],MATCH('S11'!RC[-2],'S9'!RC[-2]:R[29]C[-2],0)),INDEX('S8'!RC[-1]:R[29]C[-1],MATCH('S11'!RC[-2],'S8'!RC[-2]:R[29]C[-2],0)),RC[-1])" Range("C6").Select

---

seulement je souhaite faire une boucle for afin de faire évoluer le nom des feuilles dans la formule.
Quelle est la syntaxe à utiliser pour l'appel des feuilles?

merci à vous.

Non testé pour les numéros de semaine dans la formule :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Réf.111017.xlsm For nbsemaine = 1 To Sheets.Count - 4 With Worksheets("S" & nbsemaine) If nbsemaine > 3 Then 'calcul de la moyenne glissante sur 4 semaines .Range("C5").FormulaR1C1 = _ "=AVERAGE(INDEX(S" & nbsemaine - 1 & "!RC[-1]:R[29]C[-1],MATCH(S" & _ nbsemaine & "!RC[-2],S" & nbsemaine - 1 & _ "!RC[-2]:R[29]C[-2],0)),INDEX(S" & nbsemaine - 2 & "!RC[-1]:R[29]C[-1],MATCH(S" & nbsemaine & "!RC[-2],S" & nbsemaine - 2 & "!RC[-2]:R[29]C[-2],0)),INDEX(S" & nbsemaine - 3 & "!RC[-1]:R[29]C[-1],MATCH(S" & nbsemaine & "!RC[-2],S" & nbsemaine - 3 & "!RC[-2]:R[29]C[-2],0)),RC[-1])" End If End With Next

---

Merci pour votre réponse, effectivement c'est bon.
J'avais juste un souci d'emplacement des guillemets....