Filtre sur couleur

Option Explicit

Sub Tri()
    Dim X As Long
    Cells.EntireRow.Hidden = False
    For X = 2 To Range("F65536").End(xlUp).Row
        If Range("F" & X).Interior.ColorIndex <> Range("G1")  Then Range("F" & X).EntireRow.Hidden = True
    Next X
    Range("G1").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$1" Then
        If Target = "Tout" Then
            Rows.Hidden = False
            Exit Sub
        End If
        Application.ScreenUpdating = False
        Coul = Array(3, 4, 40, xlNone)
        Couleur = Array("Rouge", "Vert", "Brun", "Incolore")
        For n = LBound(Couleur) To UBound(Couleur)
            If Target = Couleur(n) Then LaCouleur = Coul(n)
        Next n
        Rows.Hidden = False
        For n = 2 To Range("A65536").End(xlUp).Row
            If Range("A" & n).Interior.ColorIndex <> LaCouleur Then
                Rows(n).Hidden = True
            End If
        Next n
    End If
    Application.ScreenUpdating = True
    Range("G1").Select
End Sub