Sub Graph_Couleur_Samedi_Dimanche()
Dim i As Integer
Dim rg As Range
On Error Resume Next
Set rg = ActiveSheet.Range("A2") 'changer la cellule de départ
ActiveSheet.ChartObjects("Graphique 4").Activate 'changer le nom du graphique
With ActiveChart
i = 0
Do Until IsEmpty(rg.Offset(i, 0))
If Weekday(rg.Offset(i, 0), vbMonday) >= 6 Then
.SeriesCollection(1).Points(i + 1).Interior.ColorIndex = 3 'changer la couleur
End If
i = i + 1
Loop
End With
End Sub