Sub Macro1()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
if sht.name <>"Critères" And sht.name <>"FILTRER" then
sht.Range("B:Q").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Critères").Range("D1:G2"), _
CopyToRange:=Sheets("FILTRER").Range("C2:R2"), _
Unique:=False
end if
Next
End Sub