Salut,
Si tes données sont dans la colonne A et que tu veut les copier sans doublons dans la colonne B, écrit la procédure suivante.
Sub SuppressionDoublons()
'Efface le contenue de la colonne B
Columns("B:B").Select
Selection.ClearContents
'Sélectionne la plage de la première à la dernière cellule non vide
Range("A1", Range("A1").End(xlDown)).Select
'copie la plage sélectionnée et la colle à partir de B1
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Trie la plage collée par ordre alphabétique
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B1").Select
'Suppression des doublons
'Déclaration des variables
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
Set CelluleCourante = Range("B1")
'Boucle effectuée jusqu'à cellule vide
Do While Not IsEmpty(CelluleCourante) = True
Set CelluleSuivante = CelluleCourante.Offset(1, 0)
If CelluleSuivante.Value = CelluleCourante.Value Then
CelluleCourante.Select
Selection.Delete Shift:=xlUp
End If
Set CelluleCourante = CelluleSuivante
Loop
End Sub
