Bonjour à tous !

Voila je débute vraiment en VBA et je viens vers vous car j'aimerai améliorer un programme et la je ne vois vraiment pas comment faire :

J'ai un tableau sur chaque feuille et j'aimerai recopier en page 7 la moyenne des tableaux des feuilles précédentes .

En gros j'aurais en D2 de ma feuille 7 la moyenne de tout les D2 des feuilles précédentes ... j'ai bidouillé le code suivant:
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
 
Sub moy_tab()
 
Dim Sh As Worksheet
 
    reponse = InputBox(Prompt:=" recopier les valeurs moyennes sur quelle page ? ")
    Set Sh = Sheets(reponse)
 
    Range("D2").Select
    'calcul de moy depend du nombre de machine étudiées : si on a 5 fiche il faudra prolonger la formule suivante avec
    'Sheet5!RC etc
 
    'Si le tableau est plus grand il faut redimensionner
 
    ActiveCell.FormulaR1C1  =AVERAGE(Sheet1!RC,Sheet2!RC,Sheet3!RC,Sheet4!RC)
 
    Range("D2").Select
 
    Selection.AutoFill Destination:=Range("D2:D864"), Type:=xlFillDefault
 
    Range("D2:D864").Select
 
    Range("D2:D864").Select
 
    Selection.AutoFill Destination:=Range("D2:CW864"), Type:=xlFillDefault
 
End Sub
Sauf que voila si j'augmente considérablement le nombre de feuilles, il faut modifier le programme de façon assez fastidieuse ...

Je galère vraiment la, quelqu'un pour m'aider ?

Merci d'avance