Sub Filtrer()
'Selection.AutoFilter Field:=1, Criteria1:="=*om*", Operator:=xlAnd, _
Criteria2:="<>*i*"
Selection.AutoFilter Field:=2, Criteria1:=Range(C3).Value, Operator:=xlAnd _
, Criteria2:=Range(C4).value
Selection.AutoFilter Field:=3, Criteria1:=Range(d3).Value, Operator:=xlAnd, _
Criteria2:=Range(d4).Value
End Sub