Copier en boucle dans une cellule

[Matthieu]

Bonjour!
Je cherche à copier plusieurs fois une liste en colonne (de 830 lignes)provenant d'une feuille dans une autre feuille. Et je souhaite que chaque nouvelle copie de la liste soit placée à la fin de la précédente. Pour cela j'ai tenté ce code:

Sub essai()

ThisWorkbook.Worksheets('LF').range('b4:b830').Copy
Dim Macellule As range
Dim i, j As Integer

For i = 1 To 8
j = i * 830 - 830
Macellule = Cells(1 + j, 2) 'error!'
ThisWorkbook.Worksheets('Trame').Macellule.Select
ActiveSheet.Paste
Next i

End Sub

j'essaie de faire descendre Macellule de 830 lignes après chaque copie afin de pouvoir les faire toutes à la suite... mais j'ai 'variable de bloc With non défini'. je vois pas trop ce que je peux faire...vous seriez aimable d'éclairer ma lanterne (des fois, j'ai l'impression qu'elle brille pas beaucoup!).

 

[AV]

Salut,

Sub essai()
Application.ScreenUpdating = False
Sheets('Trame').Select
[LF!b4:b830].Copy
For i = 1 To 8 * 830 Step 830
Cells(i, 2).Select
ActiveSheet.Paste
Next i
End Sub

PS : il me semble qu'il n'y a pas cohérence entre l'énoncé et ton code : B4:B830 ça ne fait que 827 lignes à copier pour un pas de collage de 830 ? Normal ?
A toi d'adapter sinon .

AV [aaa]

 

[Matthieu]

C'est parfait! Je te remercie!
Il y avait de l'idée, mais j'aurai pas trouvé tout seul! Il faudrait aussi que j'apprenne la syntaxe condensée, c'est quand même plus clair!
A +