Sub Macrocouleur()
Dim x As Integer
Dim maval As String, plage As Range
For x = 1 To 60
For i = 2 To Range("F65535").End(xlUp).Row
If Cells(i, 6) = "1" Then
ActiveChart.SeriesCollection(x).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
End If
Next i
Next x
End Sub