Aide pour une macro de consolidation

[LGDLightning]

Bonjour à toutes et tous,
je suis débutant en VBA, je m'y suis mis hier pour être honnête,
et je bloque sur ma macro de consolidation 😱
Je cherche en faite à créer un bouton me permettant de regrouper les 8 fichiers d'agence (qu'un seul onglet par fichier) et mettre les données les unes en dessous des autres dans le fichier principal (onglet "Liste"),
voici mon début de macro :

Sub LGD()

' Message d'ouverture
MsgBox "Concaténation !"

'ACM
' Ouverture de ACM.xlsx :
Workbooks.Open "C:\Users\romain_jaubert\Desktop\Dossier\ACM.xlsx"
' Copie des données d'ACM :
DerniereLigne = ActiveSheet.UsedRange.Rows.Count - 0
Workbooks("ACM.xlsx").Sheets("Liste").Range("A13:BT" & DerniereLigne).Copy
Workbooks("2013.2014.xlsm").Activate
Workbooks("2013.2014.xlsm").Sheets("Liste").Range("A13").Select
Workbooks("2013.2014.xlsm").Sheets("Liste").Paste
' Affichage agence ACM dans la colonne B :
Range("B13:B" & DerniereLigne) = "ACM"
' Fermeture de ACM.xlsx :
Workbooks("ACM.xlsx").Close

'AIX
' Ouverture d'AIX.xlsx :
Workbooks.Open "C:\Users\romain_jaubert\Desktop\Dossier\AIX.xlsx"
' Copie des données d'AIX :
DerniereLigne = ActiveSheet.UsedRange.Rows.Count - 0
Workbooks("AIX.xlsx").Sheets("Liste").Range("A13:BT" & DerniereLigne).Copy
Workbooks("2013.2014.xlsm").Activate
DebutNomFichier = DerniereLigne + 1
Workbooks("2013.2014.xlsm").Sheets("Liste").Range("A" & DerniereLigne + 1).Select
Workbooks("2013.2014.xlsm").Sheets("Liste").Paste
' Affichage agence AIX dans la colonne B :
ActiveSheet.Range("B" & DebutNomFichier & ":B" & DerniereLigne + 1) = "AIX"
' Fermeture d'AIX.xlsx :
Workbooks("AIX.xlsx").Close

End Sub


La macro semble marcher, mais il y a un petit décalage avec les noms d'agence dans la colonne B, apparemment ma formule ne doit pas être bonne ( ActiveSheet.Range("B" & DebutNomFichier & ":B" & DerniereLigne + 1) = "AIX")

De plus, je ne sais pas comment faire pour rajouter les autres agences 😛



Merci !



P.S: Le fichier principal est "2013.2014" et il y a plusieurs onglets normalement mais le fichier était trop lourd sinon 🙁