Importer plusieurs .txt dans un classeur xls

Sub ListFiles()
Application.screenupdating = False
    Directory = "c:\windows\desktop\" '--- répertoire pour la recherche des fichiers

    On Error Resume Next
    With Application.FileSearch
        .NewSearch
        .LookIn = Directory
        .Filename = "*.txt"
        .SearchSubFolders = False
        .Execute

        For i = 1 To .FoundFiles.Count
           Worksheets.Add
           Activesheet.name=.FoundFiles(i)
           
           '--- importation de ton fichier .txt
           'A CODER PAR TES SOINS

        Next i
    End With
Application.screenupdating = True
End Sub

Sub test()
'déclaration des variables
Dim myFso As Object, dossierAnalyse As Object, fichier As Object

'récupérer le dossier annalysé
Set myFso = CreateObject("Scripting.FileSystemObject")
Set dossierAnalyse = myFso.GetFolder("E:\test")

'boucler sur tous les fichiers de ce dossier
For Each fichier In dossierAnalyse.Files
    'filtrer sur les fichiers .txt (inutile si il n'y a que des fichiers .txt dans le dossier)
    If Right(fichier.Name, 3) = "txt" Then
        
        With ThisWorkbook
            'ajouter une feuille au classeur en dernière position
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            
            'nommer la nouvelle feuille au nom du fichier texte (limité à 31 caractères)
            On Error Resume Next 'au cas ou un onglet porte déjà le nom (pour que la macro ne s'arète pas)
            .Sheets(.Sheets.Count).Name = Left(Left(fichier.Name, Len(fichier.Name) - 4), 31)
            On Error GoTo 0
            
'''            'à partir d'ici, je te laisse adapter ta macro d'import de fichier texte.
'''            'la nouvelle feuille est accessible par ".Sheets(.Sheets.Count)"
'''            'et le path du fichier texte est accessible par "fichier.Path"
            
        End With
        
    End If
Next fichier

'détrire les objets
Set myFso = Nothing: Set fichier = Nothing: Set dossierAnalyse = Nothing
End Sub