Bonsoir JFBee
Voici un code, qui récupère les cellules non vides de la plage A1:A300, et colle
à partir de la cellule C1 de la même feuille.
Sub JFBee()
Range("A1:A300").SpecialCells(xlCellTypeConstants, 23).Copy
ActiveSheet.Paste Destination:=Range("C1")
End Sub
Si tu regardes l'exemple VBA au chapitre Paste, méthode (objet Worksheet) - Exemple, tu verras comment changer de feuille de destination ou de source.
@+Jean-Marie