Copie de plusieurs plage de cellule

Bonjour,

J'ai un petit soucis sur le copier/coller

Le copier/coller pour une plage de cellule se fait de cet façon :

ActiveSheet.Range("A1:C7").Copy Sheets("toto").Range("A1") 

Le problème est que si j'ai plusieurs copie de plage de cellule à faire, comment faire la copie dynamiquement

Exemple:

Dans le code ci dessus je copie la plage de cellule de A1-C7 du sheets actif, et je le colle le tout dans la cellule A1 du sheets toto

Maintenant, je voudrai faire une deuxième copie de A8-C14 du sheets actif, et je le colle le tout dans la cellule A8 du sheets toto (On commence par A8 car on a copié A1-C7 du sheets actif vers toto)

Maintenant, je voudrai faire une troisième copie de A15-C21 du sheets actif, et etc...

Au lieu de réécrire bêtement ActiveSheet.Range("A1:C7").Copy Sheets("toto").Range("A1"), ActiveSheet.Range("A8:C14").Copy Sheets("toto").Range("A8").... , je voudrai le faire dynamiquement

Auriez vous une solution ?

Merci de votre aide !! =)

C'est bon j'ai trouvé =)

Voici ce que j'ai fait

ActiveSheet.Range("A1:C7").Copy Sheets("toto").Range("A" & popo)

popo est la variable qui va me permettre de faire la copie dynamiquement

Cordialment

Poum