[COLOR="DarkSlateGray"][B]Sub toto()
Dim x, i As Byte, sel
Set sel = Selection
Application.ScreenUpdating = False
With ActiveSheet
.Columns(1).Interior.ColorIndex = xlNone [COLOR="SeaGreen"]'facultatif[/COLOR]
.Range("x").Interior.ColorIndex = 34 [COLOR="SeaGreen"]'facultatif : plage nommée "x" en bleu[/COLOR]
.ChartObjects("Graphique 1").Activate
x = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
x = Split(x, "=")(1)
x = Replace(x, " ", "")
x = Replace(x, "x", "*x")
For i = 2 To 6
x = Replace(x, "x" & i, "x^" & i)
Next i
.Range("D1").Value = x
.Range("x").Offset(0, 3).Formula = "=" & x
End With
sel.Select
Application.ScreenUpdating = True
End Sub[/B][/COLOR]