Boucle copier/coller

Bonjour tout le monde,

Suite a pas mal de recherche ces 2 derniers jours, mais n'ayant pas réussi a solutionner mon problème, je me permet de faire appel a vous.

Mon problème est le suivant:

J'ai dans la colonne C un tas de données que j'aimerai copier et coller dans la colonne E mais une cellule toute les 6

Je m'explique;

Admettons que ma 1ère cellule à copier est C2 que je veux copier en E3.

Ensuite je dois copier C3 et la mettre en E9, puis C4 en E15 etc etc..

Voila ce que j'ai:

Sub Macro1()

Dim x As Integer, y As Integer

'Ma colonne C à copier, de C3 à C649

For x = 3 To 649

Cells(x, 3).Select

Selection.Copy

Next x

'Je fais une boucle dans la colonne E (donc 12) jusqu'a 3888 car 648 valeurs (la 1ère ne comptant pas) toutes les 6 cases = 3888

For y = 3 To 3888 Step 6

Cells(y, 12).Select

ActiveSheet.Paste

Next y

End Sub

J'obtiens bien dans valeurs en E toutes les 6 lignes mais j'ai partout la valeur de C649

Merci de votre aide

Bonjour,

Sub Macro1()
Dim x As Integer
    'Ma colonne C à copier, de C2 à C648
    For x = 1 To 647
        Cells(x + 1, 3).Copy Cells(x * 6 - 3, 5)
    Next x
End Sub

A+

Merci beaucoup pour cette réponse rapide mais j'ai pas tout compris.

Ça devrait marcher avec ça ?!

Rien ne se passe

Avec un fichier exemple je pourrais peut-être comprendre pourquoi.

A+