Sub Filtre_Emploi1()
'--- extraction des personnes d'un service/emploi
Dim Maplage As Range
Set Maplage = Union(Range("c1:C7000"), Range("E1:E7000"), Range("F1:F7000"), Range("H1:H7000"))
Maplage.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[AG1:AJ2], CopyToRange:=[AG5:AJ5], Unique:=True
End Sub