Loop de copie de lignes trasposées

Bonjour

je suis nouvelle de ce forum est même de VBA.

Je ne réussis pas à faire une chose.

J'ai une table dans le Feuil1, colonne A:A, faite comme ça :

01

ville

mot

04

05

01/04/2016

07

08

09

10

etc

et je dois copier dans le Feuil2 tous ces valeurs transposées, en les groupant de 6 en 6, comme suit :

ligne 1 : 01 ville mot 04 05 01/04/2016

ligne 2 : 07 08 09 10 etc

le loop doit se terminer quand il n'y a plus de chiffres dans la colonne A:A du Feuil1.

C'est peut-être une macro vraiment facile mais je suis nouvelle et j'ai déjà beaucoup recherché une solution sur internet, sans la trouver..

vous pouvez s'il vous plaît m'aider?

Merci d'avance

Bonjour,

pas la manière la plus catholique sans doute mais ça semble fonctionner

P.

Bonjour

voici une autre proposition

fred

Sub tranposer()
Dim i As Long
Dim ws1, ws2
Set ws1 = Sheets("feuil1"): Set ws2 = Sheets("feuil2")
For i = 1 To Int(ws1.Cells(Rows.Count, 1).End(xlUp).Row / 6)
    ws1.Range(Cells(1 + (i - 1) * 6, 1), Cells(6 + (i - 1) * 6, 1)).Copy
    ws2.Cells(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True
Next i
End Sub

Merci à tous les deux !

Pour l'instant, je suis réussie à utiliser la macro dans le fichier excel de patrick, mais pas encore l'explication de fred car je pense que je dois m'être trompée dans quelques parties.

Quand mes urgences terminent, je vais reéssayer.

Bonne soirée et mille merci encore une fois