Transpose

Bonjour le forum.

J'aimerais faire un transpose pour un groupe de données.

C'est plus explicatif dans le fichier joint.

Merci.

Bonsoir,

Sub Transposer()
    Dim Tbl(), n%, i%
    i = 1
    With ActiveSheet
        Do While .Cells(i, 1) <> ""
            ReDim Preserve Tbl(n)
            Tbl(n) = WorksheetFunction.Transpose(.Cells(i, 1).Resize(4).Value)
            n = n + 1: i = i + 5
        Loop
        .Range("C1").Resize(n, 4).Value = WorksheetFunction.Transpose( _
         WorksheetFunction.Transpose(Tbl))
    End With
End Sub

Cordialement.

Merci MFerrand,ca fontionne au poil.

A+