Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H3:J3]) Is Nothing Then Exit Sub
[E8] = "=AND(OR(B8=H$3,$H$3=""""),OR(C8=I$3,I$3=""""),OR(D8=J$3,J$3=""""))"
[B7].CurrentRegion.AdvancedFilter xlFilterInPlace, [E7:E8]
[E8] = "" 'à neutraliser pour voir la formule en E8
End Sub
[J7].CurrentRegion.AdvancedFilter xlFilterInPlace, [M6:M7]
[J6].CurrentRegion.AdvancedFilter xlFilterInPlace, [M6:M7]