Microsoft 365 afficher et masquer des lignes selon une valeur de la liste

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, [i8]) Is Nothing Then
        Rows("12:20").Hidden = True
        Select Case UCase(Trim([i8]))
        Case "BORDEAUX"
            Range("12:12,15:15,19:19").EntireRow.Hidden = False
        Case "LILLE"
            Range("15:15,17:17,20:20").EntireRow.Hidden = False
        Case "LYON"
            Range("12:12,19:20").EntireRow.Hidden = False
        Case "TOUTES LES VILLES"
            Rows("12:20").Hidden = False
        End Select
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, [i8]) Is Nothing Then
        Range("a12:m20").Interior.ColorIndex = xlNone
        Select Case UCase(Trim([i8]))
        Case "BORDEAUX"
            Range("a12:m12,a15:m15,a19:m19").Interior.ColorIndex = 43 ' vert
        Case "LILLE"
            Range("a15:m15,a17:m17,a20:m20").Interior.ColorIndex = 43
        Case "LYON"
            Range("a12:m12,a19:m20").Interior.ColorIndex = 43
        Case "TOUTES LES VILLES"
            Range("a12:m20").Interior.ColorIndex = 43
        End Select
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim C
    If Not Application.Intersect(Target, [j3]) Is Nothing Then
       [tablo].Interior.ColorIndex = xlNone
        Select Case UCase(Trim([j3]))
        Case "BORDEAUX"
            For Each C In Array(1, 4, 8)
                [tablo].Columns(C).Interior.ColorIndex = 43    ' vert
            Next
        Case "LILLE"
            For Each C In Array(4, 6, 9)
                [tablo].Columns(C).Interior.ColorIndex = 43
            Next
        Case "LYON"
            For Each C In Array(1, 8, 9)
                [tablo].Columns(C).Interior.ColorIndex = 43
            Next
        Case "TOUTES LES VILLES"
           [tablo].Interior.ColorIndex = 43
        End Select
    End If
End Sub