re,
Avec une petite macro, voir feuille "Synthèse"
ici cette feuille (sans doublons) est triée par département
Sub Synthèse()
Dim f1 As Worksheet, f2 As Worksheet
Application.ScreenUpdating = False
Set f1 = Feuil1
Set f2 = Feuil2
With Sheets("Synthèse")
.Columns("a:b").Clear
f1.Columns("a:b").Copy Destination:=.Range("a1")
f2.Range("a2:b" & f1.[a65000].End(xlUp).Row).Copy Destination:= _
.Range("a" & Rows.Count).End(xlUp)(2)
'--- filtre sans doublons ---
.Range("a1:b" & .[a65000].End(xlUp).Row) _
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
.Range("c1:d1"), Unique:=True
'---
.Columns("a:b").Delete
.Columns("a:b").AutoFit
'--- tri ---
.Range("a2:b" & .[a65000].End(xlUp).Row).Sort _
Key1:=.Range("b2"), Order1:=xlAscending, _
Key2:=.Range("a2"), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub
Amicalement
Claude