VBA

Bonjour,

sur une feuille excel, j'ai une colonne qui contient plusieurs valeurs différentes.
je voudrait éliminer les doublons, c'est à dire travailler cette colonne de façons a ne pas avoir de valeur en double, un genre de " Select distinct" comme en SQL (sauf que je voudrait le faire en VBA

j'ai déja fait un algo, mais sa me parrait top lourd,

je commence par trier la colonne,ensuite si je trouve de cellules identique qui se suivent j'en supprime une, et a la fin je retrie la colonne.



' Trier la colonne A
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

'
'supprimer les doublons
Dim Cel As Range
Set Cel = Sheets(2).Range("A1")
i = 0
Do While Cel.Offset(i) <> ""
If Cel.Offset(i) = Cel.Offset(i + 1) Then 'supprime les doublons
i = i + 1
Cel.Offset(i - 1) = ""
Else
i = i + 1
End If
Loop

'
' Retrier la colonne A
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'



quelqu'un à t il une idée d'un algo moins lourd ou des une fonction ?
Merci