Bonjour Valmax, Banzai, bonjour le forum,
Une ligne était séparée par des points-virgule d'où le code un peu plus long :
Sub Macro1()
Dim CEL As Range
Dim DEST As Range
Application.ScreenUpdating = False
For Each CEL In Range("B3:B" & Cells(Application.Rows.Count, 2).End(xlUp).Row)
If UBound(Split(CEL.Value, ",")) > 0 Then
For I = 0 To UBound(Split(CEL.Value, ","))
Set DEST = IIf(Range("F3") = "", Range("F3"), Cells(Application.Rows.Count, 6).End(xlUp).Offset(1, 0))
DEST.Value = Trim(Split(CEL.Value, ",")(I))
Next I
Else
For I = 0 To UBound(Split(CEL.Value, ";"))
Set DEST = IIf(Range("F3") = "", Range("F3"), Cells(Application.Rows.Count, 6).End(xlUp).Offset(1, 0))
DEST.Value = Trim(Split(CEL.Value, ";")(I))
Next I
End If
Next CEL
Application.ScreenUpdating = True
End Sub