Sub import()
Dim Directory As String, File As String, Temp As String
Dim NumRow As Long, NumCol As Integer
Dim FF As Integer, I As Integer
Directory = ThisWorkbook.Path & "\" & "fevrier08\" ' "E:\fevrier08\"
File = Dir(Directory & "*.txt")
NumRow = ActiveCell.Row
NumCol = ActiveCell.Column
With ActiveSheet
FF = FreeFile
Do While File <> ""
Open Directory & File For Input As #FF
Do While Not EOF(FF)
Line Input #FF, Temp
Table = Split(Temp, vbTab)
For I = 0 To UBound(Table)
[COLOR="Red"] If IsDate(Table(I)) Then
.Cells(NumRow, NumCol + I) = CDate(Table(I))
Else[/COLOR]
.Cells(NumRow, NumCol + I) = Table(I)
[COLOR="red"] End If[/COLOR]
Next
NumRow = NumRow + 1
Loop
Close #FF
File = Dir
Loop
End With
End Sub