Regrouper fichiers txt sur xls

Sub Recup()
 Dim Fichier, feuille As String
 feuille = InputBox("Entrez le nom du nouvel onglet", "Onglet", "mafeuille")
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichier <> False Then
       Sheets.Add.Name = feuille
       Worksheets(feuille).QueryTables.Add("TEXT;" & Fichier, [B1]).Refresh 'à adapter
      Else
        MsgBox "Pour importer des données dans Excel, vous devez choisir un fichier texte !"
    End If
End Sub

Option Explicit
Private Sub CommandButton1_Click()
Recup
End Sub
Sub Recup()
 Dim Fichier
Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichier <> False Then
  Sheets.Add.Name = ComboBox1.Text
       Worksheets(ComboBox1.Text).QueryTables.Add("TEXT;" & Fichier, [B1]).Refresh 'à adapter le cellule de reception
       Else
        MsgBox "Pour importer des données dans Excel, vous devez choisir un fichier texte!", vbExclamation, "Importer fichier texte"
    End If
End Sub
Private Sub UserForm_Initialize()
'adapter le nom des onglets
ComboBox1.AddItem ("mafeuille_1")
ComboBox1.AddItem ("mafeuille_2")
ComboBox1.AddItem ("mafeuille_3")
ComboBox1.AddItem ("mafeuille_4")
ComboBox1.ListIndex = 0
End Sub

Option Explicit
 Dim onglet As Boolean
 Dim Fichier
 Dim Tableau() As String
 Dim pos As Integer
 Dim nomfichier As String
Sub Recup_import()
'on recherche le fichier texte
Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichier <> False Then
    'on récupere le nom du fichier texte sans son extension
 nomfichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)
pos = InStr(1, nomfichier, ".", 1)
       nomfichier = Left(nomfichier, pos - 1)
       'on vérifie si il n'y a pas d'onglet portant le même nom
       onglet = True
 Doublons
If onglet = False Then Exit Sub
'on ajoute un onglet
    Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = nomfichier
'on met le texte sur la feuille
       Worksheets(nomfichier).QueryTables.Add("TEXT;" & Fichier, [B1]).Refresh 'à adapter le cellule de reception
       Range("A1").Value = nomfichier
       Else
        MsgBox "Pour importer des données dans Excel, vous devez choisir un fichier texte!", vbExclamation, "Importer fichier texte"
    End If
    Sheets("Sommaire").Select
   Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = nomfichier
    End Sub
Private Sub CommandButton2_Click()
Recup_import
End Sub
'http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F
Private Sub UserForm_Initialize()
    Dim j As Integer
    'Récupère les données de la colonne A...
    For j = 1 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
    ComboBox1.ListIndex = 0
End Sub
'empecher de renommer onglet du même nom
Private Sub Doublons()
Dim ctr
For ctr = 1 To Sheets.Count
  If Sheets(ctr).Name = nomfichier Then
MsgBox "Un onglet porte déjà ce nom!", vbExclamation, "Ajouter onglet"
  onglet = False
  End If
  Next
End Sub