Motif de lignes variable

Private Sub Worksheet_Change(ByVal Target As Range)
Dim couleur As Variant
If Not Intersect(Target, Range("C2:C" & Range("C65536").End(xlUp).Row)) Is Nothing Then
    With Sheets("COULEURS")
        For j = 1 To 7
            If .Cells(1, j).Value = Target.Value Then
                couleur = .Cells(2, j).Interior.ColorIndex
                Exit For
            End If
        Next j
    End With
    Rows(Target.Row).Interior.ColorIndex = couleur
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim couleur As Variant
    If Not Intersect(Target, Range("C2:C" & Range("C65536").End(xlUp).Row)) Is Nothing Then
        With Sheets("COULEURS")
            For j = 1 To 7
                If .Cells(1, j).Value = Target.Value Then
                    couleur = .Cells(2, j).Interior.ColorIndex
                    Exit For
                End If
            Next j
        End With
        Set Tab1 = Range(Cells(Target.Row, 1), Cells(Target.Row, 3))
        Union(Tab1, Tab1).Select
        Selection.Interior.ColorIndex = couleur
    End If
End Sub