Dim ChartName As String
Worksheets('suivcoul').Cells(1, 1).Select
Charts.Add
ChartName = Charts(Charts.Count).Name
Charts(ChartName).ChartType = xlXYScatterSmoothNoMarkers
Charts(ChartName).SeriesCollection(1).XValues = '=suivcoul!C3'
Charts(ChartName).SeriesCollection(1).Values = '=suivcoul!C4'
Charts(ChartName).SeriesCollection(1).Name = '=''Vitesse de coulée (m/min)'''