Sub FiltreElab()
With Feuil1
.Range("B4:E4") = [{"A","B","C","D"}]
End With
With Sheets("Feuil2")
.Select
.Range("A1") = "B": .Range("A2") = "Rouge"
Sheets("Feuil1").Range("B4:E15").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("A1:A2"), _
CopyToRange:=.Range("C1:F1")
End With
Feuil1.Range("B4:E4").Clear
End Sub