Sheets(Nom_Feuil).Range("A3:B" & Fin).Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets(Nom_Feuil).Range("A3:B" & Fin), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=Nom_Feuil
With ActiveChart
.HasTitle = True
.HasLegend = False
.ChartType = xlXYScatterSmoothNoMarkers
.ChartTitle.Characters.Text = ""
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Temps (s)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Tension (Kgf)"
End With