Aide "With"

Je souhaite copier/coller une liste de nombre d'une feuille "GLOBAL" (colonne N de l'ActiveSheet) vers la colonne A d'une feuille "SUIVI". Je cherche ensuite à classer ces nombres de façon croissante et à supprimer les doublons présents dans la liste.

Mon code est défaillant à partir du code de classement des numéro. Je pense que je me sers mal de la fonction "With"

Qu'en pensez-vous ?

Sub Liste_numero()

Range(Cells(7, "n"), Cells(Rows.Count, "n").End(xlUp)).Copy

With Sheets("SUIVI").Cells(2, "a")

.PasteSpecial xlPasteValues

.Sort Cells(2, "a"), xlAscending, Header:=xlYes

.RemoveDuplicates Array(1), xlYes

End With

End Sub

Bonjour,

essaie ainsi :

Sub Liste_numero()
Dim rng As Range, lRow As Long
    lRow = Cells(Rows.Count, 14).End(xlUp).Row
    Set rng = Cells(7, 14).Resize(lRow - 6)
    rng.Copy
    With Sheets("SUIVI").Cells(2, 1)
        .PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        With .Resize(rng.Count)
            .Sort .Cells(2, 1), xlAscending, Header:=xlYes
            .RemoveDuplicates 1, xlYes
        End With
    End With
End Sub

Merci beaucoup Jean-Eric !!