Bonjour,
Sub SansDoublonsTrie()
Dim MonDico As Object
Dim c As Range
Set MonDico = CreateObject("Scripting.Dictionary")
With Worksheets("listing")
.Columns("E:F").ClearContents
For Each c In .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
If Not MonDico.exists(Trim(c.Value) & "|" & Trim(c.Offset(, 1).Value)) Then MonDico.Add Trim(Trim(c.Value) & "|" & Trim(c.Offset(, 1).Value)), Trim(c.Value) & "|" & Trim(c.Offset(, 1).Value)
Next c
With .Range("E2").Resize(MonDico.Count, 1)
.Value = Application.Transpose(MonDico.keys)
.Sort Key1:=Worksheets("listing").Range("E2"), Order1:=xlAscending, Header:=xlNo
End With
.Columns("E").Select
Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
.Range("E1").Select
End With
Set MonDico = Nothing
End Sub