Slt tout le monde,
une autre macro à tester
Sub Separer_Donnees()
Dim sht As Worksheet
Dim i As Long, r As Long, rws As Long, LCol As Long
Dim c As Range
Dim vC As Variant
On Error GoTo FallThrough
Application.EnableEvents = False
Application.ScreenUpdating = False
Set sht = ThisWorkbook.Worksheets("Sheet1")
LCol = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column
For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If InStr(1, Cells(r, 10).Value, ",") > 0 Then
rws = Len(Cells(r, 10).Value) - Len(Replace(Cells(r, 10).Value, ",", vbNullString))
Cells(r + 1, 10).Resize(rws, 1).EntireRow.Insert
Cells(r, 1).Resize(rws + 1, LCol).FillDown
For i = 0 To rws
For Each c In Cells(r + i, 1).Resize(1, LCol)
If InStr(1, c.Value, ",") > 0 Then
vC = Split(c.Value, ",")
c = vC(i)
End If
If IsNumeric(c) Then c = c.Value
Next c
Next i
End If
Next r
FallThrough:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub