Sub graph() ActiveSheet.ChartObjects("Graphique 2").Activate
a = ActiveChart.SeriesCollection.Count
For j = 1 To a
ActiveChart.SeriesCollection(1).Delete
Next j
For i = 2 To Range("a65000").End(xlUp).Row
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i - 1).Name = Sheets(1).Cells(i, 1)
ActiveChart.SeriesCollection(i - 1).XValues = Sheets(1).Cells(i, 2)
ActiveChart.SeriesCollection(i - 1).Values = Sheets(1).Cells(i, 3)
Next
End Sub