Je viens d utiliser ca en VBA mais j aime pas :
Est ce que vous avez une solution moins geeky :-)
Sub DoFilter()
Dim rCrit1 As Range, rCrit2 As Range, rRng1 As Range, rRng2 As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set rCrit1 = Range("A4" )
Set rCrit2 = Range("B4" )
Set rRng1 = Range("A5:J150" )
Set rRng2 = Range("A5:J150" )
With rRng1
.AutoFilter field:=1, Criteria1:=rCrit1.Value, Operator:=xlOr
.AutoFilter field:=2, Criteria1:=rCrit2.Value
End With
Application.EnableEvents = True
End Sub