Salut :
' Supposons que nous avons quatre feuilles .
' Chaque feuille contient des valeurs a la première colonne A:A .
' Nous appliquons le code suivant :
Sub Moyenne()
Dim sh As Worksheet, S As Double, M As Double, DL As Long
For Each sh In Sheets
DL = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
S = S + WorksheetFunction.Sum(sh.Range("A1:A" & DL))
D = D + DL
Next
MsgBox "Nombre de lignes calculées : " & D & Chr(10) & _
"Total : " & S & Chr(10) & "Moyenne : " & Val(S) / Val(D)
End Sub