Sub test()
With ActiveSheet
Dim T() As Variant
T = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value
Dim i As Integer, nb As Integer, j As Integer
Dim un As Variant, res As Variant
nb = UBound(T)
ReDim res(1 To nb, 1 To 2)
For i = 1 To nb
un = Split((Replace(T(i, 1), ".", ",")), " ")
For j = 0 To UBound(un)
'res(i, j + 1) = Trim(res(i, j + 1)) & " " & un(j)
res(i, j + 1) = un(j)
Debug.Print res(i, j + 1)
Next
Next
' Worksheets("Feuil1").Range("B7").Resize(UBound(res, 1), UBound(res, 2)) = res
' Application.Trim(Application.Transpose(TR))
Worksheets("Feuil1").Range("B7").Resize(UBound(res, 1), UBound(res, 2)) = Application.Trim(res)
End With
End Sub