bonjour,
quand tu multiplies quelque chose par zéro, ça fait toujours zéro
covarXt = 0 '<- vérifier ceci
WideXt = Xt.Rows.Count
For i2 = 1 To WideXt
covarXt = covarXt * (Xt.Cells(i, 1) - meanXt) ' ou ceci
Next i2
covarYt = 0 'même chose ici
WideYt = Yt.Rows.Count
For i3 = 1 To WideYt
covarYt = covarYt * (Yt.Cells(i, 1) - meanYt) 'même chose ici
Next i3