Vba excel comment colorier des lignes sous co

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String
Static AncCell As Variant, L As Long, C As Integer
    If AncAdress <> "" And Target.Count = 1 Then 'pour 1ère initialisation.
        If AncCell <> Range(AncAdress) And Range(AncAdress).Column = 1 Then
            If UCase(Left(Range(AncAdress), 6)) = "SAMEDI" Then
                L = Range(AncAdress).Row
                C = Cells(L, 255).End(xlToLeft).Column
                Range(Cells(L, 1), Cells(L, C)).Interior.ColorIndex = 6 'Jaune
            End If
        End If
    End If
    If Target.Count = 1 Then
        AncAdress = Target.Address
        AncCell = Target.Value2
    End If

End Sub