import de tous les fichiers texte dans la feuille active

Sub Import_Textes()
Dim Chemin As String, Fichier As String, Temp As String
Dim NumLigne As Long, NumCol As Integer
Dim FF As Integer, I As Integer
'Adapter le chemin 
Chemin = "D:\HC\Excel\Macros\"
Fichier = Dir(Chemin & "*.txt")
NumLigne = ActiveCell.Row
NumCol = ActiveCell.Column
With ActiveSheet
  FF = FreeFile
  Do While Fichier <> ""
    Open Chemin & Fichier For Input As #FF
    Do While Not EOF(FF)
      Line Input #FF, Temp
      Table = Split(Temp, vbTab)
      For I = 0 To UBound(Table)
        .Cells(NumLigne, NumCol + I) = Table(I)
      Next
      NumLigne = NumLigne + 1
    Loop
    Close #FF
    Fichier = Dir
  Loop
End With
End Sub