Calcul de covariance en VBA

Bonjour,

Je cherche actuellement à calculer la covariance de deux plages.

Ces plages on une taille variable qui dépend de J.

je défini mes deux plages avec cette variable J puis dans une autre cellule je souhaite donner le résultat de la covariance de ces deux plages.

La définition des plages ne fonctionne pas comme je le voudrait et je ne suis pas sur que la fonction covar soit correctement écrite.

Merci beaucoup pour votre aide

Sub covariance()
Sheets("Ratio risque").Activate
Dim j As Integer, i As Double, ptf As Range, bench As Range
j = WorksheetFunction.VLookup(Range("G1"), Sheets("Ratio risque").Range("A19:D297"), 2, False)
j = j + 18
Set ptf = Range(Cells(4, 20) & ":" & Cells(4, j))
Set bench = Range(Cells(9, 20) & ":" & Cells(9, j))
Range("C9").Activate
i = Application.WorksheetFunction.Covar(ptf, bench)
Cells("C9") = i
End Sub