Répartir texte sur plusieurs cellules

Sub coupagedeligne()
T = Split(Range("A2"), Chr(10))
Range(Cells(5, 1), Cells(UBound(T) + 5, 1)) = Application.Transpose(T)
End Sub

Private Sub CommandButton1_Click()
tbl = Split(Range("A2").Value, Chr(10))
For x = 0 To UBound(tbl)
    Cells(x + 4, 1).Value = tbl(x)
Next x
End Sub

Sub koupkoup()
Dim T() As Variant
cel = Range("A2")
z = 1
    For i = 1 To Len(cel)
        If Mid(cel, i, 1) = Chr(10) Then
        x = x + 1
        ReDim Preserve T(1 To x)
        T(x) = Mid(cel, z, i - z)
        z = z + Len(T(x)) + 1
        End If
    Next
Range(Cells(5, 1), Cells(UBound(T) + 4, 1)) = Application.Transpose(T)
Cells(UBound(T) + 5, 1) = Mid(cel, z, Len(cel))
End Sub