Fonction covariance sur VBA

Bonjour,
Je dois reprogrammer la fonction covariance sur VBA mais je n'y arrive pas.
J'ai les données de la première variable de D3 à D124 et celles de la seconde de E3 à E124.
Pour le moment j'ai écrit ceci :

Function theCov(rangeA As Range, rangeB As Range) As Double

Dim i As Integer
Dim n As Integer
Dim theSum As Double
Dim meanA As Double
Dim meanB As Double

n = rangeA.Count
meanA = theMean(rangeA)
meanB = theMean(rangeB)

For i = 3 To n + 2
Cells(i, 4).Select
theSum = theSum + (Cells(i, 4) - meanA) * (ActiveCell.Offset(0, 1).Value - meanB)
Next i

theCov = theSum / n

End Function



Si quelqu'un a une solution ou connait une meilleure façon d'y arriver pour m'aider ça serait gentil !

Merci.