Sub test()
Dim tablo() As String, rep As String
Dim i As Integer, k As Integer
For i = 1 To Range("A65536").End(xlUp).Row
tablo = Split(Cells(i, 1).Value, " ")
For k = UBound(tablo) To 0 Step -1
rep = rep & " " & tablo(k)
Next k
Cells(i, 2).Value = Mid(rep, 2, Len(rep))
rep = ""
Next i
End Sub