Problème sur ce code au niveau de la fonction Average

Bonsoir,
J'ai recopié bêtement un code que j'ai trouvé sur un bouquin pour faire des statistiques mais il bloque au niveau de la fonction "average" et je ne comprends pas pourquoi.

Voici mon code :

Option Base 1
Sub Statistiques_Elémentaires()
Dim Plage_Rentabilites As Range
Dim Feuille As Worksheet
Dim Nombre_lignes, Numero_ligne As Integer
Nombre_lignes = Worksheets.Count - 1
ReDim Tableau_Resultats(Nombre_lignes, 7) As Variant

For Each Feuille In Worksheets
If Feuille.Name <> "Statistiques" Then
Feuille.Activate
Numero_ligne = Numero_ligne + 1
Range("C3").Select

Set Plage_Rentabilites = Range(Selection, _
Selection.End(xlDown)).Offset(-1, 1)

Plage_Rentabilites.FormulaR1C1 = _
"=LN((R[1]C2+RC3)/RC2)"

Tableau_Resultats(Numero_ligne, 1) = _
Feuille.Name

Tableau_Resultats(Numero_ligne, 2) = _
WorksheetFunction.Count(Plage_Rentabilites)

Tableau_Resultats(Numero_ligne, 3) = _
WorksheetFunction.Average(Plage_Rentabilites)

Tableau_Resultats(Numero_ligne, 4) = _
WorksheetFunction.Median(Plage_Rentabilites)

Tableau_Resultats(Numero_ligne, 5) = _
WorksheetFunction.StDev(Plage_Rentabilites)

Tableau_Resultats(Numero_ligne, 6) = _
WorksheetFunction.Skew(Plage_Rentabilites)

Tableau_Resultats(Numero_ligne, 7) = _
WorksheetFunction.Kurt(Plage_Rentabilites)

End If

Next Feuille
Worksheets("Statistiques").Activate
For i = 1 To Nombre_lignes
For j = 1 To 7
Cells(i + 1, j).Value = Tableau_Resultats(i, j)
Next j
Next i

End Sub

Je remercie d'avance toute personne qui voudra bien me renseigner.