Sub TransformeLigneColonne()
Sheets("BD").Select
ligne = 2
larg = 9
For Each c In Range("A2", [A65000].End(xlUp))
i = 1
Do While c.Offset(0, larg + i - 1) <> ""
c.Resize(, larg).Copy Sheets("résult").Cells(ligne, 1)
Sheets("résult").Cells(ligne, larg + 1) = c.Offset(0, larg + i - 1)
ligne = ligne + 1
i = i + 1
Loop
Next
End Sub