Pas vraiment sûr de ne pas être en dehors du sujet mais si tu veux déplacer une Range de "A1:A10" vers la colonne "D" et qu'à chaque action sur la procédure un bloc de 10 cellules ("A1:A10") soit exporté en colonne "D" en s'incrémentant vers le bas, ce code devrait faire l'affaire :
Option Explicit
Sub Massi()
Dim PlageSource As Variant
Dim PlageCible As Range
Dim L As Integer
PlageSource = Range("A1:A10")
L = Range("D65536").End(xlUp).Row + 1
If L = 2 Then L = 1 'pour la première fois