Sub Filtre1()
Range("b2") = "=and(c6<>"""",or(c6=d$2,c6=d$3))"
Range("a5:i10000").AdvancedFilter xlFilterInPlace, Range("b1:b2")
Range("b2").ClearContents
End Sub
Sub Filtre2()
Range("f2") = "=and(c6<>"""",h6<>"""",or($c6=$d$2,$c6=$d$3),or($h6=$h$2,$h6=$h$3))"
Range("a5:i10000").AdvancedFilter xlFilterInPlace, Range("f1:f2")
Range("f2").ClearContents
End Sub