Doublons sur Excel

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

Cette "procédure" ... où faut-il l'écrire???????

merci

salut,

faut que t'aille dans le menu Outils, puis dans Macro et tu clique sur Visual Basic Editor. Une fois que t'as fait ça tu double clique sur la feuille à laquelle (à gauche dans Visual Basic Editor) tu veux affecter la macro et tu recopie le code dedans.
ensuite pour lancer la macro il te suffit de cliquer sur Macros (sous Macro dans le menu Outils) et tu clique sur la macro que tu viens de créer.
normalement ça devrait marcher.

Merci beaucoup sa peu m'aider pour mon probléme aussi.
A la seul différence j'ai des valeurs avant et aprés la colonne A et B.
BOn je sais remplacer les colonne et j'en créer une autre c'est pas trés difficile, mais j'aimerais simplement que la line en doublons soit elle aussi suppprimée. Pourriez-vous modifier le code afin que cela ce fasse...
En vous remerciant.