faire plusieurs copier dans un feuille

[bichon]

Salut a tous et a toutes
j'ai un leger mais alors tres leger problème
jespere que quelqu'un pourra me donner une solution car ce petit problème ca m'arrangerai de
plus l'avoir quoi lol
alors voila j'aimerai copier le contenu de plusieur cellule a la foi
ca revient a faire un control et vous sellectionner les cellule puis copier
pour ensuite pouvoir les coller dans une colonne ligne apre ligne
voici mon code

Workbooks.Open FileName:="C:\mon doc\1.xls"
i = 23
Do While i < Range("A65536").End(xlUp).Row
Range("Z" & i).Select
Selection.Copy
i = i + 23
Loop
Workbooks.Open FileName:="C:\mon doc\2.xls"
Range("B6").Select
ActiveSheet.Paste

j'explique
sur la feuille 1 j'aimerai selectionner les valeur des cellules Z23 Z46 ....
de copier les valeurs dedans
et de les copier sur un autre classeur

pour l'instant il me copie que la derniere valeur en Z & i
comment faire pour mettre un control pour pouvoir toute selectionner ces cellules
et les copier
voila je vous remercie ca ne doit pas etre tres dur mais bon j'arrive pas a men sortir

merci

bichon

 

[Yo]

Salut,
Peux-tu poster un classeur comme exemple.