Copie en bouble : des données en colonne apparaissent en ligne

Question

Bonjour,

J'ai ce fichier.

Ce sont des données qui se repetent : date, date, libelle, montant. Donc des blocs de 4 dans la même colonne. ( A )

Je voudrais que ces blocs de 4 se retrouvent sur la même ligne dans un autre classeur dans colonnes différentes.

Donc A1, A2, A3, A4 se retrouvent sur A1, B1, C1, D1

A5,A6,A7,A8 se retrouvent sur A2,B2,C2,D2

......

Je sais que je dois faire un boucle mais j'y arrive pas.

J'ai testé ça

 With Worksheets("Feuil1")
        For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 4
            .Range(i & 1).Copy Worksheets("Feuil2").Range("A1")
            .Range(i + 1 & 1).Copy Worksheets("Feuil2").Range("B1")
             .Range(i + 2 & 1).Copy Worksheets("Feuil2").Range("C1")
              .Range(i + 3 & 1).Copy Worksheets("Feuil2").Range("D1")

            Worksheets("Feuil1").PrintOut From:=1, To:=2, Copies:=1, Collate _
                :=True, IgnorePrintAreas:=False

        Next i
    End With

Mais j'ai une erreur d'éxécution.

Vous avez des idées ?

Merci d'avance

Yvouille · Answer

Tu copies tes données comme dans l'image ci-dessous, tu fais un clic-droit dans la cellule où tu veux placer tes données et tu choisis : "Collage spécial/Transposé". Et voici le résultat : Par macro c'est également possible, mais pourquoi compliquer quand on peut faire simple ? Amicalement...

Yvouille · Answer

Mais, c'est moi qui te remercie d'avoir posé la question On peut voir ton fichier, afin de constater où sont tes données actuelles ? Mais indique aussi où tu veux placer tes données transposées et si tu veux garder les données de base ou si tu veux les effacer. Cordial salut...