Bonjour
Avec une macro VBA à mettre dans un module, cela peut donner ça
Sub Macro1()
Sheets("Feuil2").Range("A:A").ClearContents
Sheets("Feuil1").Columns("A:A").SpecialCells(xlCellTypeConstants, 23).Copy Destination:=Sheets("Feuil2").Range("A1")
End Sub
Bonne journée
@+Jean-Marie