Ou bien, un code qui m'avait été donné par un des membres du forum :
Sub Liste()
Range(Cells(2, "a"), Cells(Rows.Count, "a").End(xlUp)).Copy
Cells(2, "b").PasteSpecial xlPasteValuesAndNumberFormats
With Range(Cells(2, "b"), Cells(Rows.Count, "b").End(xlUp))
.RemoveDuplicates Array(1), xlYes
End With
End Sub
Si ta liste est en colonne 1, tu récupère une nouvelle liste sans doublon en colonne 2.