Function MoyGéoPond(ByVal Valeurs, ByVal Poids) As Double
Dim L As Long, SP As Double
If TypeOf Valeurs Is Range Then Valeurs = Valeurs.Value
If TypeOf Poids Is Range Then Poids = Poids.Value
For L = 1 To UBound(Valeurs, 1)
MoyGéoPond = MoyGéoPond + Log(Valeurs(L, 1)) * Poids(L, 1)
SP = SP + Poids(L, 1): Next L
MoyGéoPond = Exp(MoyGéoPond / SP)
End Function