Extraire equation courbe de tendance

Bonjour,

Comme indiqué dans le titre, je souhaiterai creer une macro me permettant d'extraire l'équation d'une courbe de tendance...

J'ai trouvé sur un autre forum une ébauche de macro, je pense que cela est possible mais je n'arrive pas à finaliser celle-ci!

voila où j'en suis:

Sub Valeurs_Courbe_Tendance()

Dim Valor As String
ActiveSheet.ChartObjects("Chart 9").Activate
ActiveChart.SeriesCollection(6).Trendlines(1).DataLabel.Select
Selection.NumberFormat = "0.0000" ' Précision des coeffs
Valor = Selection.Characters.Text
Range("M23") = Valor

End Sub

Chart 9 étant le nom de mon graphique...

Avez vous une idée? je pourrais le faire manuellement mais je dois traiter 120 données et le but de mon fichier et de rendre la chose automatique pour pouvoir servir ensuite à d'autres personnes!!

Merci et bon weekend!

Nicolas

Configuration: Windows XP
Firefox 3.0.10