Sub Test2()
Dim derlig&, i&, mondico, tablo
Application.ScreenUpdating = False: Application.Calculation = xlManual
Sheets("Client").Activate
Sheets("Client").Range("a3:a" & Rows.Count).ClearContents
With Sheets("Feuil1")
derlig = .UsedRange.Rows.Count + .UsedRange.Row - 1
tablo = .Range("a1:a" & derlig)
For i = derlig To 1 Step -1
If tablo(i, 1) <> "" Then Exit For
Next i
If i <= 3 Then Exit Sub Else derlig = i
tablo = .Range("a4:b" & derlig): derlig = UBound(tablo)
Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To derlig: mondico(Trim((tablo(i, 1)) & "-" & Trim(tablo(i, 2)))) = "": Next i
If mondico.exists("-") Then mondico.Remove "-"
End With
With Sheets("Client")
.Range("a3").Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
.Range("a3").Resize(mondico.Count, 1).Sort key1:=.Range("a3"), order1:=xlAscending, Header:=xlNo
End With
Application.ScreenUpdating = True: Application.Calculation = xlAutomatic
End Sub