bonjour ,
une proposition de solution qui fait l'hypothèse que les données sont dans les colonnes a,b,c et d
Sub test()
Set wss = Worksheets("source") 'feuille avec les données de base
Set wsr = Worksheets("résultats") 'feuille résultats
dl = wss.Cells(Rows.Count, 1).End(xlUp).Row
l = 0
For i = 1 To dl
el = wss.Cells(i, 2)
v = InStr(el, ",")
While v <> 0
l = l + 1
wsr.Cells(l, 1) = wss.Cells(i, 1)
wsr.Cells(l, 3) = wss.Cells(i, 3)
wsr.Cells(l, 4) = wss.Cells(i, 4)
wsr.Cells(l, 2) = Left(el, v - 1)
el = Mid(el, v + 1)
v = InStr(el, ",")
Wend
l = l + 1
wsr.Cells(l, 1) = wss.Cells(i, 1)
wsr.Cells(l, 3) = wss.Cells(i, 3)
wsr.Cells(l, 4) = wss.Cells(i, 4)
wsr.Cells(l, 2) = el
Next i
End Sub