Comment utiliser cette fonction VBA

Bonjour,
*
j'essaye d'utiliser la fonction de regression polynomiale suivante:


Function MoindresCarres(rgX As Range, rgY As Range, p As Integer)


Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim M() As Double

n = rgX.Cells.Count
ReDim M(n - 1, p)

For i = 0 To n - 1
For j = 0 To p
M(i, j) = rgX(i + 1) ^ j
Next
Next
With WorksheetFunction
If rgX.Rows.Count = 1 Then
MoindresCarres = .MMult(.MInverse(.MMult(.Transpose(M), M)), .MMult(.Transpose(M), .Transpose(rgY)))
Else
MoindresCarres = .MMult(.MInverse(.MMult(.Transpose(M), M)), .MMult(.Transpose(M), rgY))
End If
End With
End Function

Je débute en vba.
ma plage de données en abcisse se trouve en ("B3:B200") et ma plage des ordonnées est en ("C3:C200"). Je crois que ca s'écrit comme ca...
je voudrai remplir une colonne avec les coefficients du polynome d'approximation.
je ne sais même pas comment remplir les arguments de la fonction, je pense qu'il faut l'insèrer dans une "sub"
merci d'avance
Nukix