Tableau croisé dynamique ou formule

Bonjour

j'ai une base de données que je souhaiterai mettre en forme de manière différente

N° camion n° de BL

1 47470

2 47474 47473 47472

et je souhaiterai avoir le résultat suivant

N° BL N° camion

47470 1

47474 2

47473 2

47472 2

Je galere avec le tableau croisée dynamique et je pense que ce n'est pas forcement la bonne solution.

si quelque'un a une idée je suis preneur.

merci

Bonjour

Avec une macro VBA, résultat sur Feuille2

Code Module

Sub Tableau()
Dim Cel As Range, i As Byte, j
For Each Cel In Range("C4:G" & [B65000].End(xlUp).Row)
If Cel <> "" Then
i = Cel.Row
j = Sheets("Feuil1").Range("B" & i).Value
Sheets("feuil2").Activate
If Range("A2") = "" Then
    Range("A2").Select
    ElseIf Range("A2") <> "" Then
    Range("A1").End(xlDown).Offset(1, 0).Select
    End If
ActiveCell = Cel.Value
ActiveCell.Offset(0, 1) = j
End If
Next Cel
End Sub

Cordialement