Saut de ligne VBA excel 2007

Sub Scinder()
Dim Col, T
Dim i As Byte
Dim DerLig As Long
Dim Cel As Range
    Application.ScreenUpdating = False
    Col = Array(18, 23, 27) 'Colonnes R, W, AA
    For i = 0 To 2
        DerLig = Cells(Rows.Count, Col(i)).End(xlUp).Row
        For Each Cel In Range(Cells(3, Col(i)), Cells(DerLig, Col(i)))
            On Error Resume Next
            T = Split(Cel, " ")
            Cel.Value = T(0) & " " & T(1) & Chr(10) & T(2) & " " & T(3)
            Cel.HorizontalAlignment = xlLeft
            On Error GoTo 0
        Next Cel
    Next i
End Sub