Concaténer plusieurs feuilles Excel d'un fichier dans un seul

Bonjour à tous,

J'ai une question à savoir si je doit utiliser Excel ou bien Access pour concaténer plusieurs feuilles d'un fichier Excel dans un autre fichier de compilation.

Je soit répéter cette opération avec plusieurs fichiers Excel afin d'obtenir un seul fichier de compilation. La structure de mes colonnes de chacune des feuilles est identique mais le nombre de ligne et de feuilles varie selon le fichier. Par la suite, je dois supprimer les lignes vides d'un fichier de destinations final.

Au final, je vais prendre ce tableau de compilation pour l'intégrer dans une base de données SQL.

J'ai réussi à importer les données d'un fichier Excel dans une Base Access avec l'aide d'un code trouvé sur le net, mais en spécifiant le chemin de mon fichier dans la macro. Tout est correct, il prend les données de chacune des feuilles et me les placent dans une seule. Voici le code en question:

Option Compare Database
Option Explicit
 ' ---
' IMPORTATION DE PLUSIEURS FEUILLES EXCEL
' ---
Sub ImportExcel( _
  ByVal strChemin As String, _
  ByVal varFeuilles As Variant, _
  ByVal blnNoms As Boolean, _
  ByVal strTable As String _
  )
  
  ' Déclaration des variables
  Dim strFeuille As Variant
  Dim chaineSQL As String
  
  ' Est-ce que le classeur Excel existe ?
  If Dir(strChemin) = "" Then
    MsgBox "Le classeur ['" & strChemin & "] est introuvable.", vbExclamation
    Exit Sub
  End If
  
  ' Vidage de la table si nécessaire
  On Error GoTo ImportExcelErr
  If MsgBox("Souhaitez-vous vider la table [" & strTable & "] avant l'importation ?", _
    vbQuestion + vbYesNo) = vbYes Then
    CurrentDb.Execute "DELETE * FROM [" & strTable & "];"
  End If
 
  ' Procédure d'importation
  For Each strFeuille In varFeuilles
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
      strTable, strChemin, blnNoms, strFeuille & "!"
  Next
  
  ' Un p'tit message pour terminer :-)
  MsgBox "Opération terminée !", vbInformation
  Exit Sub
  
ImportExcelErr:
  MsgBox "Erreur d'importation : " & Err.Description, vbExclamation
  Exit Sub
  
  chaineSQL = "Delete from Migration Geotec - Import where [NO-SITE]is null"
  DoCmd.RunSQL chaineSQL
End Sub
Public Sub TestImportExcel()
  Dim varFeuilles As Variant
  
  ' Liste des feuilles Excel à importer
  varFeuilles = Array("Z12037", "Z12038", _
    "Z12041", "Z12045", "Z12051")
  
  ' Importation proprement dite
  ImportExcel "M:\Entrepot\BDFS\1_Piézomètres\1-Saguenay_Lac St-Jean_Charlevoix\Donnée recueillit en 2015\Jonquière_nouveau2.xlsx", varFeuilles, True, "Migration Geotec - Import"
  
  
End Sub

Je veux éviter les opérations manuel, vue que nous avons au dessus de 30 fichiers à traiter avec en moyenne 5 feuilles chacun.

J'ai un peu d'expérience avec les macro d'Excel mais pas avec la programmation Acces.

Merci de votre aide!!