Copier une cellule plusieurs fois

Bonsoir,

J'ai besoin de copier une cellule d'une feuille du classeur 1 sur 12 lignes d'une feuille du classeur 2, et faire la même chose pour toutes cellules disponibles.

En gros j'ai 300 lignes dans le classeur 1 et je dois en avoir 3600 dans le classeur 2, mais en gardant le même ordre des lignes du classeur

Je suis débutant et j'ai besoin de finir cette tâche pour demain.

Merci beaucoup

Bonsoir,

tu ne donnes pas de fichier, pas d'exemple.

une proposition malgré tout

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        Set wst = Sheets("feuil2")
        k = 1
        For i = 1 To dl
            .Cells(i, 1).Copy wst.Cells(k, 1).Resize(12)
            k = k + 12
        Next i
    End With
End Sub

Bonjour h2so4,

Merci pour ta réponse, j'ai appliqué le même code avec quelques modifications et ça a fonctionné

Merci encore une fois!