Macro pour copier de 5 en 5

Bonjour à tous,

Je souhaiterais créer une macro dans un classeur excel comprenant 2 feuilles.

Le but serais de :

• sélectionner la cellule A1_feuille2, et la copier dans la cellule A1_feuille1.
• sélectionner la cellule A2_feuille2 et la copier dans la cellule A5_feuille1

La feuille2 contient 390 lignes, ce qui serait intéressant pour ma part, serait d'effectuer la macro tant que nous n'avons pas traiter la cellule A390 de la feuille2.

En sachant que l'on doit copier chaque cellule A1 de la feuille2 mais les copier 5 cellules plus loin dans la feuille1.

Quelqu'un pourrait-il m'aider ? je suis débutant en vba, je vois pas trop par quoi commencer.

PS : J'espère avoir été clair dans mes explications ^^

J'ai tenter de créer une ébauche de code qui ressemblerait à ça, qu'en pensez-vous ?

Sub CopierColler()

    Dim i As Integer
    Dim j As Integer
    i = 5
    j = 5
    For i = 5 To 390
        Sheets("Feuill2").Select
        Range(Ai).Select
        Selection.Copy
        Sheets("Feuill1").Select
        Range(Cj).Select
        ActiveSheet.Paste
        j = j + 5
    Next
End Sub

Merci

un truc dans le genre suffit

Sub recup()

For i = 1 To 390

donnee1 = Worksheets(1).Cells(i, 1)

Worksheets(2).Cells(i * 5, 1) = donnee1

Next

End Sub

J'ai éditer le message juste avant le tiens, je vais essayer ton code, et je vais voir ce que cela me donne.

Que penses tu de mon ébauche de code ?

Merci