Régression polynomiale en VBA

Bonjour, je cherche à déterminer les coefficients d'un polynôme en VBA (sans passer par Excel et DROITEREG).

Par défaut, le code ci-dessous pourrait me convenir mais je n'arrive pas remplacer les "Range" par des tableaux de valeurs.

Code:

---

1 2 3 4 5 6

Sub Coefs()   coeffs = Application.LinEst(Range("B1:B8"), _ Application.Power(Range("A1:A8"), Array(1, 2, 3)))   End Sub

---

Merci pour votre aide.