dans une colonne selectionner des cellules rouge (mfc) via un filtre

Sub FiltrerMFC()
Dim P As Range, fc As FormatCondition, c As Range
Set P = ActiveSheet.[A1:B9] 'à adapter éventuellement
Application.ScreenUpdating = False
With Feuil2 'CodeName de la feuille de restitution
  .Cells.Delete 'RAZ
  Set fc = P(2, 1).FormatConditions(1)
  Set c = P(2, P.Columns.Count + 1)
  c = fc.Formula1 'critère
  P.AdvancedFilter xlFilterCopy, c(0).Resize(2), .[A1]
  c = ""
  If .UsedRange.Rows.Count > 1 Then
    With .UsedRange.Offset(1).Resize(.UsedRange.Rows.Count - 1)
      .Font.Color = fc.Font.Color
      .Interior.ColorIndex = fc.Interior.ColorIndex 'au besoin
    End With
  End If
  .Activate
End With
End Sub

Sub rougevert()
[B3:B50].ClearContents 'RAZ
[B3:B50].Interior.Color = [B2].Interior.Color 'RAZ
On Error Resume Next 'si aucune cellule visible
With [B55:B149].SpecialCells(xlCellTypeVisible)
  .Copy [B3]
  [B3].Resize(.Count).Interior.ColorIndex = _
    [B55].FormatConditions(1).Interior.ColorIndex
  [B3].Resize(.Count).Font.ColorIndex = _
    [B55].FormatConditions(1).Font.ColorIndex
End With
End Sub

Sub rougevert()
[A3:B50].ClearContents 'RAZ
[A3:B50].Interior.Color = [A2].Interior.Color 'RAZ
On Error Resume Next 'si aucune cellule visible
With [A55:B149].SpecialCells(xlCellTypeVisible)
  .Copy [A3]
  [B3].Resize(.Count / 2).Interior.ColorIndex = _
    [B55].FormatConditions(1).Interior.ColorIndex
  [B3].Resize(.Count / 2).Font.ColorIndex = _
    [B55].FormatConditions(1).Font.ColorIndex
End With
End Sub