Microsoft 365 Organiser un tableau pour ne faire qu'apparaître les lignes contenant une couleur de remplissage particulière

Sub Show_Red()
Dim Target As Range, Cel As Range
Dim ToHide As Boolean
    Rows.EntireRow.Hidden = False
    Set Target = Columns("B").Find("Act")
    If Not Target Is Nothing Then
        First_Adr = Target.Address
        Do: ToHide = True
            For Each Cel In Target.Offset(, 1).Resize(, 12).Cells
                If Cel.DisplayFormat.Interior.Color = 395485 _
                Or Cel.DisplayFormat.Interior.Color = 255 Then
                    ToHide = False
                    Exit For
                End If
            Next
            If ToHide Then
                Target.Offset(-1, -1).Resize(2).EntireRow.Hidden = True
            End If
            Set Target = Columns("B").FindNext(Target)
        Loop Until Target.Address = First_Adr
    End If
End Sub

Sub Show_All()
    Rows.EntireRow.Hidden = False
End Sub