Sub boucle_for()
For i = 1 To 1000 'Valeurs mises par défaut que j'adapterai au besoin
Sheets("Plot").Select
ActiveChart.ChartArea.Select
ActiveChart.Legend.Select
ActiveChart.SeriesCollection(i).Select
Selection.Format.Line.Visible = msoFalse
Next
End Sub