While Test <> ""
ActiveSheet.ChartObjects(Nom2).Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(j).Name = "='Template construit'!$C$" & i
ActiveChart.SeriesCollection(j).XValues = "='Template construit'!$" & y & "$" & i
ActiveChart.SeriesCollection(j).Values = "='Template construit'!$W$" & i
ActiveChart.SeriesCollection(j).Select
ActiveChart.SeriesCollection(j).Points(1).Select
With Selection
.MarkerStyle = 8
.MarkerSize = 15
End With
i = i + 1
j = j + 1
Test = Worksheets(1).Range("C" & i).Value
Wend