Sub MiseEnGrasDesSamediEtDimanche()
Range("A4").Select
Stop
Do Until ActiveCell = ""
If Weekday(CDate(ActiveCell.Value)) = 1 Or Weekday(CDate(ActiveCell.Value)) = 7 Then
With Selection.Font.Bold = True
ActiveCell.Interior.ColorIndex = 15
End With
Else: Selection.Font.Bold = False
End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub