Aide sur macro

Bonjour a tous

j'ai besoin de votre aide concernant cette macro.

Sub Recup()
 Dim Fichier, feuille As String
 feuille = InputBox("Entrez le nom du nouvel onglet", "Onglet", " ")' ici je voudrais le nom du fichier et non une inbox
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichier <> False Then
       Sheets.Add.Name = feuille
       Worksheets(feuille).QueryTables.Add("TEXT;" & Fichier, [A1]).Refresh 'à adapter
      Else
        MsgBox "Pour importer des données dans Excel, vous devez choisir un fichier texte !"
        Sheets("donnee").Select
   Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = nomfichier
    End If
    'relancer la macro
End Sub

Merci de votre aide

Re bonjour

Je ne vois pas beaucoup de réponses .😂😂

en fait ça ce que je voudrais c'est pouvoir à l'aide d'une macro ouvrir plusieurs fichiers .txt et les importer dans une feuille séparée du même classeur.

nommer au nom du fichier.

Merci de votre aide🙂