Coller transposer

j'ai un tableau d'une seule colonne

ligne 1

ligne 2

ligne 3

ligne 4

ligne 5

ligne 6

ligne 7

ligne vide

ligne 1

ligne 2

ligne 3

ligne 4

ligne 5

ligne 6

ligne 7

ligne vide

avec un millier de de ligne

je souhaite avoir un tableau suivant en transposant les 6 lignes en colonnes en gardant la première ligne

ligne1 ligne2 ligne3 ligne4 ligne5 ligne5 ligne6

Merci

Bonjour,

Un essai en macro :

Sub TransposeSpecial()

Dim Lig As Long, L As Long, Col As Integer, NCol As Integer

NCol = 8 '7 pleines + 1 vide
With Sheets("NomFeuille")
    For Lig = 1 To .Range("A" & Rows.Count).End(xlUp).Row 'Boucle sur les lignes
        L = Int((Lig - 1) / NCol) + 1 'Calcul ligne destination
        Col = (Col Mod NCol) + 1 'Calcul colonne destination
        .Cells(L, Col + 1) = .Cells(Lig, 1) 'Recopie cellule d'origine vers destination
    Next Lig
End With

End Sub

A mettre dans un module standard de l'éditeur VBA.

Bonjour je vous remercie

ça fonctionne à merveille