XL 2010 faire un filtrage sur une ligne par rapport a la couleur des cellules

post prod à dit:

Bonjour a tous je voudrai savoir si il est possible de faire un filtrage sur une ligne par rapport a la couleur des cellules
j'ai un fichier ou les ligne sont très longue et je voudrai filtrer les donnée d'une ligne par rapport la la couleur des cellules
( voir le fichier)
merci d'avance pour vos réponses

Cliquez pour agrandir...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim C As Range
    Cancel = True
    If Target.Address <> "$A$2" Then Exit Sub
    For Each C In Range(Cells(2, 1), Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column))
        If C.Interior.ColorIndex = xlNone Then C.Columns.Hidden = IIf(C.Columns.Hidden = True, False, True)
    Next
End Sub

post prod à dit:

merci pour t'on excellente reponse sa fonctionne tres bien
mais petite variante au cas ou la premiere cellule A2 de la ligne n'est pas en jaune
mais par exemple C6 sur la ligne 3
ou G7 sur la ligne 4
et ainsi de suite

Cliquez pour agrandir...