Sumproduct

bonjour
j'ai un probleme avec le calcul d'une fonction personnalissée d'une variance

Function VARPOND(CENTRE_CLASSE As Variant, EFFECTIFS As Variant) As Double

M = MOYENNEPOND(CENTRE_CLASSE, EFFECTIFS)
t1 = Application.WorksheetFunction.SumProduct(CENTRE_CLASSE, CENTRE_CLASSE, EFFECTIFS)
T2 = Application.Sum(EFFECTIFS)
VARPOND = t1 / T2 - M ^ 2
End Function
ça ne marche pas Comment mettre au carré sumpruduct pour calculer la variance avec cette formule j'obitien un résultat négatif
merci pour votre aide