Créer liste de noms sans doublons

Bonjour a tous,

Je bloque sur un petit problème en ce moment. Je voudrais crée une liste de noms sans doublons (répétitions) a partir d'une colonne ou il peux y avoir des doublons.

Voici un exemple :

Vinny

Bonjour,

Une solution avec en prime le tri de la liste

Sub Liste()
        Application.ScreenUpdating = False
    Range("a1:a" & [a65000].End(xlUp).Row).AdvancedFilter _
    Action:=xlFilterCopy, CopyToRange:=Range("e1"), Unique:=True
    '--- tri ---
    Range("e2:e" & [e65000].End(xlUp).Row).Sort _
    Key1:=Range("e2"), Order1:=xlAscending, _
    Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Amicalement

Claude

Merci beaucoup, c'est parfait!

Bonne fin de week end!

Vinny