apres point-virgule, saut à la ligne???

Sub test()
Application.ScreenUpdating = False
L = 0
DerLig = Range("A65536").End(xlUp).Row
For i = 1 To DerLig
X = Cells(i, 1)
Suivant:
Lg = Len(X)
Pos = InStr(1, X, ";")
If Pos = 0 Then
Cells(i + L, 2) = X
Else
Cells(i + L, 2) = Left(X, Pos - 1)
X = Mid(X, Pos + 1, Lg)
L = L + 1
GoTo Suivant
End If
Next i
Application.ScreenUpdating = True
End Sub

Sub test()
Dim tb() As String, i As Integer
tb = Split(Range("A1").Value, ";")
For i = LBound(tb) To UBound(tb)
    Cells(i + 1, 1).Value = tb(i)
Next i
End Sub