Transposer un tableau

Bonjour experts,

J'ai un tableau comme dessous :

je veux le changer sou le format dessous :

Comment puis-je faire SVP ?

Bonjour à tous,

En utilisant power query

Merci Djidji59430, Puis je avoir les détails des étapes car j'ai un tableau de 16 colomnes et 7890 lignes :)

Bonjour

Avec VBA. Tableau comme présenté dans votre post

Sub Transfert()
Dim tablo()
Dim dcl As Integer, dlg As Integer, i As Integer, j As Integer

dcl = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column

For j = 3 To dcl
    dlg = ActiveSheet.Cells(ActiveSheet.Rows.Count, j).End(xlUp).Row
    ReDim tablo(2 To dlg, 1 To 2)

    For i = 2 To dlg
        tablo(i, 1) = ActiveSheet.Cells(i, 1)
        tablo(i, 2) = ActiveSheet.Cells(i, j)
    Next i

    With ActiveSheet
        lig = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Range("A" & lig & ":B" & lig + dlg - 2) = tablo
    End With
Next j

End Sub

Cordialement

Bonjour à tous

Achraf Abed a écrit :

Merci Djidji59430, Puis je avoir les détails des étapes car j'ai un tableau de 16 colomnes et 7890 lignes :)

http://www.excel-formations.fr/Trucs_astuces/PQ02.php