Modifier code exporter / importer feuille

Bonjour à toutes et tous

j'ai ce code pour exporter des feuilles comportant uniquement des données, auquel je voudrai ajouter

- La creation (si non cree) d'un dossier dans lequel les feuilles de bases de données seront enregistrés (nom du dossier = "Sauvegarde_base_données")

Sub BD_exportOnglets()

    CheminAppli = ThisWorkbook.Path
    Application.DisplayAlerts = False
    For i = 1 To Sheets.Count
        If Left(Sheets(i).Name, 2) = "B_" Then
          Sheets(i).Select
          nonglet = ActiveSheet.Name
          ActiveSheet.Copy
          ActiveWorkbook.SaveAs Filename:=CheminAppli & "\" & nonglet
          ActiveWindow.Close
        End If
    Next i
Sub BD_exportOnglets()

    CheminAppli = ThisWorkbook.Path
    Application.DisplayAlerts = False
    For i = 1 To Sheets.Count
        If Left(Sheets(i).Name, 2) = "B_" Then
          Sheets(i).Select
          nonglet = ActiveSheet.Name
          ActiveSheet.Copy
          ActiveWorkbook.SaveAs Filename:=CheminAppli & "\" & nonglet
          ActiveWindow.Close
        End If
    Next i

Et dans un 2ème temps, je souhaiterais un autre code pour pouvoir ensuite importer ces 3 feuilles dans ma feuille excel, par la suite.,

merci à celui qui voudra m'aider

Pour créer le dossier ou se situe la feuille source, j'avais trouvé ce code pratique que je ne suis pas arrivé à "mixer" avec le premier

  ThisWorkbook.Save
  SRépertoire = "Cypreplan-Sauvegarde_" & Range("UNITE")
  Répertoire = ThisWorkbook.Path & "\" & SRépertoire
  If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
  ThisWorkbook.SaveCopyAs Répertoire & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "-" & Range("AN") & "_" & Range("UNITE") & " le " & _
      Format(Now, "dd-mm-yyyy") & " à " & Format(Time, "hh'mm") & " par " & Range("UTILISATEUR") & ".xls"