bonsoir bhbh
c'est ce que j'ai fait mais c'est idem !?
EDIT:
j'ai copié adr ... en A1.A2...
et fais comme ceci sur la même feuille
Range("A1:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
Pas de souci, il faut inclure l'entête de colonne de la base de donnée. Et définir la première cellule cible suffira.
Ce qui donne en supposant l'entête de colonne en B4 :