Sub ListeNom()
Set mondico = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
.Range("F:F").ClearContents
fin = .Range("A" & .Rows.Count).End(xlUp).Row
For Each ele In .Range("A2:B" & fin)
mondico(ele.Value) = ""
Next ele
Liste = mondico.keys
.Range("F2").Resize(UBound(Liste)) = WorksheetFunction.Transpose(Liste)
.Range("F2").Sort key1:=.Range("F2"), order1:=xlAscending, Header:=xlNo
End With
End Sub