RemoveDuplicates avec des noms de variables

Bonjour,

je cherche a copier une colonne dans une autre feuille, la trier et en enlever les doublons

Mais j'utilise surement mal la commande RemoveDuplicates car la ligne est fausse, voici un extrait du code:

' Affecte la plage de distribution a la variable rng
    Set rng = ws2.Cells(1, ncol).Resize(ws2.Cells(Rows.Count, lcol).End(xlUp).Row)

' Initialisation du tri
    ws2.Sort.SortFields.Clear

' Selection du tri croissant
    ws2.Sort.SortFields.Add Key:=rng, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

' Tri proprement dit
    With ws2.Sort
        .SetRange rng
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

' Enleve les doublons
    rng.RemoveDuplicates Columns:=ncol, Header:=xlYes

Merci de votre aide!

Bonjour

Dans le code remplacez ncol par 1 dans cette ligne

rng.RemoveDuplicates Columns:=1, Header:=xlYes

Aussi plus haut aux 2 lignes Set rng, je mettrais les références ws1 et ws2 devant les Rows.count

Cordialement

Merci Dan, cela fonctionne... et je comprends que c'etait stupide de ma part, je confondais le nombre de colonnes avec la place de la colonne dans la feuille..

Merci infiniment, je clos :)