Sub Makro1()
'
' Makro1 Makro
'
'
ActiveSheet.ChartObjects("Diagramm 6").Activate
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, _
10, 244, 29).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"X = " & Cells(40, 5) & " D^5+b.H^5+c.D^4+d.H^4+e.D^3+f.H^3+g.D^2+h.H^2+i.D+j.H+k" 'Le nombre dans Cells(40, 5) est le suivant:9,33617E-08
End Sub