Sub CreerGraphique()
Dim P As Range, Nserie%, n%
Set P = [A1].CurrentRegion.Offset(, 1)
If P.Columns.Count > 1 Then Set P = P.Resize(, P.Columns.Count - 1)
Nserie = P.Rows.Count - 1
If ActiveSheet.ChartObjects.Count Then ActiveSheet.ChartObjects.Delete 'RAZ
With ActiveSheet.ChartObjects.Add(100, 100, 400, 200).Chart
.ChartType = xlXYScatterSmooth 'nuage de points
For n = 1 To Nserie
With .SeriesCollection.NewSeries
.Name = P(n + 1, 0)
.XValues = P.Rows(1)
.Values = P.Rows(n + 1)
End With
Next
End With
End Sub