Eclater cellules séparées par un retour chariot en autant de cellules que de mots

Sub Eclate()
Dim Tableau() As String
Dim Cel As Range
For Each Cel In Range("F2:F" & Range("F65000").End(xlUp).Row).End(xlUp)
Tableau = Split(Cel, Chr(10))
For i = 0 To UBound(Tableau)
Sheets("RESULTAT").Range("F" & i + 1) = Tableau(i)
Next i
Next Cel
End Sub

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim tablo

Range("a1:g1").Copy Destination:=Sheets("RESULTAT").Range("a1") 'copie ligne d'entete

For i = 2 To Range("a65536").End(xlUp).Row
    tablo = Split(Cells(i, 6), Chr(10))
    With Sheets("RESULTAT")
        For k = 0 To UBound(tablo)
            l = .Range("a65536").End(xlUp).Row + 1
            For j = 1 To 5
                .Cells(l, j) = Cells(i, j)
            Next j
            .Cells(l, 6) = tablo(k)
        Next k
        .Range("a1").CurrentRegion.Borders.LineStyle = xlContinuous 'bordure
    End With
Next i