XL 2010 Combiner deux colonnes différentes puis supprimer doublons.

[lelebl]

Bonjour,
J'aimerai pour pouvoir gagner du temps réaliser une macro qui me permettrait de copier coller une colonne à la suite de l'autre puis supprimer les doublons.
Pour supprimer les doublons, ok je me suis appuyé sur l'enregistreur de macro puis j'ai récupéré les lignes qu'il me fallait.
Pour ce qui est du copié collé, j'ai un peu plus de mal, j'utilise donc pour copier ma colonne A de la feuille 1 à la feuille 3 :
"With Worksheets("Feuille1")
.Columns("A").Copy
End With


'Coller en feuille 3 en colonne A et supprimer les doublons

With Sheets("feuil3")
.Columns("A").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Range("$A$3:$A$10000").RemoveDuplicates Columns:=1, Header:=xlNo.

Maintenant, la ou je bloque, copier la colonne B de la feuille 2 en A de la feuille 3, à partir de la première ligne vide.
'Je déclare donc des variables
PremièreLigneVide = .Cells(.Rows.Count, "A").End(xlUp).Row-1
End With

Je décide de copier la colonne B feuille 2 sans l'en tête, j'utilise donc .Range, de la première donnée à copier jusqu'à la première ligne vide.
With Sheets ("Feuil2"),
DernièreLigneVideFeuil2=.Cells(.Rows.Count, "B").End(xlUp).
.Range("B3:B" & DernièreLigneVideFeuil2).Copy
End With

With Sheets("Feuil3").
Et la je ne sais donc pas quoi faire, enfin je ne sais pas comment tourner la formule,

merci d'avance de vos réponses,

El Blanco
"C'est en travaillant que l'on travail"

 

[D10]

Bonjour,
J'ai exactement la même demande!

 

[pierrejean]

bonjour lelebl

Vois si tu peux t'inspirer de ceci

 

[lelebl]

Merci bien, je vais essayer de comprendre pourquoi l'utilisation d'une boucle, et ton code étant toujours novice, c'est appréciable d'avoir une réponse aussi "décrite"