Problème résolu à l'aide d'enregistrement de macro puis copier coller
Set nouveau_graphique1 = Charts.Add 'Créer la nouvelle feuille graphique
With nouveau_graphique1
.SetSourceData Source:=Sheets("Feuil1").Range(Range("Feuil1!A1").Offset(0, 0), Range("Feuil1!A1").Offset(0, 0).End(xlDown)) ' définition des plages de données
.Name = Sheets("Feuil1").Range("A1")
.ChartType = xlXYScatterSmoothNoMarkers
.HasTitle = True
.ChartTitle.Text = "Evolution de la force appliquée sur l'échantillon"
.HasAxis(xlCategory, xlPrimary) = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Text = "Force (N)"
.Tab.Color = RGB(255, 0, 0)
ActiveChart.ChartArea.Select
ActiveChart.FullSeriesCollection(1).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
End With