Sub interface()
' copie des lignes txt vers excel
Dim T() As String
Worksheets("import").Activate
Cells(1, 1).Activate
Open "C:\DOCUME~1\FRVARA~1\Bureau\WORK_T~1\COMPTA~2\TEST_O~1\test.dat" For Input As #1
i = -1
While Not EOF(1)
i = i + 1
ReDim Preserve T(i)
Line Input #1, T(i)
Cells(i + 1, 1) = T(i)
Wend
' mise en places des séparateurs
nbcount0 = Application.CountA(Range("A1:A65536"))
c = 2
For j = 1 To nbcount0
For l = 1 To nbcount0
For k = 0 To UBound(Split(Cells(j, 1), " "))
Cells(l, c) = Split(Cells(j, 1), " ")(k)
c = c + 1
Next k
Next l
Next j
End Sub