Macro suppression doublons et blancs

Problème tout simple mais je bloque et je n'ai jamais trouvé la réponse adéquate sur ce forum.

J'ai 3 feuilles dans le même fichier

Des données dans la colonne A de la première

Des données dans la colonne A de la deuxième

je veux obtenir dans la colonne A de la troisième la liste de toutes les données des deux colonnes précitées mais sans les doublons ni les blancs.

Et je le voudrais dans l'idéal en VBA et non XL4 ou mise en forme conditionnelle car j'intégrerai ce code à une macro plus globale dont j'ai déjà fait l'autre partie.

Après si en plus ça pouvait être une macro rapide car je dois l'utiliser sur 20000 lignes en gros ... mais bon on va pas tenter le diable non plus

merci d'avance si quelqu'un peut m'aider, si j'y arrive avant je vous préviens bien entendu mais je sèche depuis longtemps quand même.

https://www.excel-pratique.com/~files/doc/exemple_doublons.xls

Bon alors pour les blancs c'est bon

j'ai copié les cellules des feuilles 1 et feuille 2 les unes en dessous des autres sur la colonne A de la feuille 3 (via du VBA bien sûr) et ensuite utilisé ce code

Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

par contre la suppression des doublons je vois pas ...

mais je creuse une piste

Bonjour

A mettre dans un module :

Public Sub Sans_Doublons()
'Macro d'HERVÉ sur xld
Dim data
Dim tablo, i As Integer

Set data = CreateObject("Scripting.Dictionary")

tablo = Range("A2:A" & Range("A65536").End(xlUp).Row)

For i = 1 To UBound(tablo)
    data.Item(tablo(i, 1)) = data.Item(tablo(i, 1))
Next i
Range("B2:B" & Range("B65536").End(xlUp).Row).ClearContents
Range("B2", Cells(data.Count + 1, "B")) = Application.Transpose(data.Keys)

End Sub

Amicalement

Nad

Merci beaucoup Nad

combiné à la macro d'effacement des blancs c'est exactement ce que je voulais, le résultat est parfait

bonne journée à vous et merci au forum en général