If Target.Address = "$B$7" Or Target.Address = "$C$7" Then
Range([B10], Range("G" & [B10].End(xlDown).Row)).Clear
Sheets("FILTRES").Range("A1:F57").AdvancedFilter Action:=xlFilterCopy, _
criteriaRange:=ActiveSheet.Range("B6:C7"), CopyToRange:=ActiveSheet.Range("B10"), Unique:=False
End If