Bonsoir,
une proposition via une macro qui suppose les données en colonnes A B C et D
Sub aargh()
i = 1
While Cells(i, 1) <> ""
v = Split(Cells(i, 4), "-")
If UBound(v) > LBound(v) + 1 Then
For j = LBound(v) To UBound(v) - 1
If j > LBound(v) Then
Rows(i).Insert
Cells(i - 1, 1).Resize(, 3).Copy Cells(i, 1)
End If
Cells(i, 4) = "'" & v(j) & "-" & v(j + 1)
i = i + 1
Next j
i = i - 1
End If
i = i + 1
Wend
End Sub