Excel filtrer lignes dotées d'une cell rouge

Function quelle_MFC(cellule As Range) As Byte
    Dim fc As FormatCondition, F1, F2
    Dim c As Range, num As Byte, q As Byte
    Set c = Cells.Find(Empty)
    cellule.Select
    num = 0: q = 0
    For Each fc In Selection.FormatConditions ' on scrutte toute les MFC
        num = num + 1
        c.FormulaLocal = fc.Formula1: F1 = c ' Si c'est une formule, mise en place de cette formule dans une cellule, resultat Vrai ou Faux
        If fc.Type = xlCellValue Then ' si le type de MFC est : La valeur de la cellule (ce n'est pas une formule)
            Select Case fc.Operator
                Case xlBetween, xlNotBetween:
                    c.FormulaLocal = fc.Formula2: F2 = c
                    If fc.Operator = xlBetween Then
                        If cellule >= F1 And cellule <= F2 Then q = 1
                        If fc.Operator = xlNotBetween Then If ActiveCell < F1 Or ActiveCell > F2 Then q = 1
                    End If
            Case xlEqual
                If ActiveCell = F1 Then q = 1
            Case xlGreater
                If ActiveCell > F1 Then q = 1
            Case xlGreaterEqual
                If ActiveCell >= F1 Then q = 1
            Case xlLess
                If ActiveCell < F1 Then q = 1
            Case xlLessEqual
                If ActiveCell <= F1 Then q = 1
            Case xlNotEqual
                If ActiveCell <> F1 Then q = 1
            End Select
        Else
            If F1 = True Then q = 1
        End If
        If q = 1 Then
            quelle_MFC = num
            Exit For
        End If
    Next fc
    
    c.ClearContents

End Function