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