Sheets("GRAPH").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
Set Choix = ActiveWorkbook.Sheets("DATA").Range("B2").CurrentRegion
With ActiveChart
.SetSourceData Source:=Choix, PlotBy:=xlColumns
.HasTitle = True
.PlotArea.Interior.Color = RGB(192, 192, 192)
.ChartTitle.Characters.Text = nom
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Déplacement (mm)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Effort (kN)"
End With