Option Explicit
Sub tst()
Dim i As Long, j As Long
Dim s As String, Ar() As String
For i = 2 To 23
s = Feuil1.Cells(i, 1)
Ar() = Split(s, Chr(11))
For j = LBound(Ar) To UBound(Ar)
Feuil1.Cells(i, j + 2) = Ar(j)
Next j
Next i
End Sub
Option Explicit
Sub Tst()
Dim i As Long, j As Long
Dim s As String, Ar() As String
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
s = Feuil1.Cells(i, 1)
Ar() = Split(s, Chr(11))
For j = LBound(Ar) To UBound(Ar)
Feuil1.Cells(i, j + 2) = Ar(j)
Next j
Next i
Application.ScreenUpdating = True
End Sub