en fait, il se peut qu'il y ait des formules dans le colonne 1. Mais je veux copier en colonne 2 que les valeurs et non les formules (bien sur sans doublons)
Option Explicit
Sub a_v2()
Columns(2).Clear
Columns(1).SpecialCells(xlCellTypeConstants, 23).Copy Destination:=[B1]
Columns(2).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub