Transposer et coller à la suite sur même colonne

Bonjour à tous,

J'aurais besoin d'une macro pour transposer et coller sur la même colonne plusieurs lignes (qui pourront par la suite avoir une longueur variable).

Ci-joint un exemple avec le résultat en feuille 2.

Merci par avance pour votre aide.

Bonjour, plusieurs possibilités, en voici une :

Sub Demo1()
    Dim Rg As Range
    Application.ScreenUpdating = False

    With Feuil2
        .UsedRange.Clear

        For Each Rg In Feuil1.Cells(1).CurrentRegion.Rows
            Rg.Copy
            .Cells(.Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues, , , True
        Next

        .Rows(1).Delete
        .Activate
    End With
End Sub

Parfait, merci beaucoup Marc L

Au passage, le squelette du code a été créé en quelques secondes via le Générateur de macros …

En le faisant une fois et en l'enregistrant?

Mais dans ce cas cela ne peut pas prendre en compte une longueur différente des lignes du tableau en feuille 1?

J'ai pourtant juste évoqué le squelette, pas le code final !

Et puis en s'intéressant au code - il y a tout ce qu'il faut dans l'aide VBA intégrée, bien plus utile que de se perdre sur le net ! - et

en le testant dans différents contextes …

ok je regarderai et tenterai de comprendre pour pouvoir le faire les choses aussi simples moi même la prochaine fois.

Merci