bonjour tout le monde tu peus essayer cette macro Option Explicit
Sub jourWE()
Dim i&
Application.ScreenUpdating = False
For i = 1 To [a65536].End(xlUp).Row
If Weekday(cells(i, 1).Value, 2) > 5 Then _
cells(i, 1).EntireRow.Interior.ColorIndex = 36'choix de la couleur
Next i
End Sub'salutations