Bonjour,
solution via une macro
Sub aargh()
Set wsb = Sheets("base")
Set wsd = Sheets("feuille de débit")
i = 2
k = 2
wsd.Cells.Clear
wsd.Cells(1, 1).Resize(, 7) = Split("ind,nom,Essence,Nbre,Long,Larg,Ep.", ",")
While wsb.Cells(i, 1) <> ""
es = wsb.Cells(i, 1)
i = i + 1
While wsb.Cells(i, 2) <> ""
wsb.Cells(i, 2).Resize(, 2).Copy wsd.Cells(k, 1)
wsb.Cells(i, 3).Resize(, 4).Copy wsd.Cells(k, 4)
wsd.Cells(k, 3) = es
i = i + 1
k = k + 1
Wend
Wend
End Sub