VBA - Consolidation fichier Excel

Option Explicit
'Déclaration variable
Dim NomClasseur As String
Dim LigneTotal As Integer
Dim DerLigne As Integer


' consolidation de plusieurs fichiers Excel


Sub consolider()

    'Etape 1 : création des entêtes.
    
    Range("A5").Value = "Société"
    Range("B5").Value = "Siret"
    Range("C5").Value = "Début de validité"
    Range("D5").Value = "Fin de validité"
    Range("E5").Value = "Code Organisme"
    Range("F5").Value = "Code Délégataire"
    Range("G5").Value = "Référence contrat"
    Range("H5").Value = "Code Population"
    Range("I5").Value = "Code Option"
    Range("J5").Value = "Périodicité de paiement des cotisations"
    Range("K5").Value = "Assiette"
    Range("L5").Value = "Condition tarifaire"
    Range("M5").Value = "Taux et Montant"
    Range("N5").Value = "Description"
    
    'Etape 2 : parcourir les fichiers
    
    ChDir "X:\FP\SECURITAS\V2"
    'on cherche le premier classeur danns le dossier
    NomClasseur = Dir("X:\FP\SECURITAS\V2\*.xlsx")
    'on boucle pour chercher tous les classeurs Excel
    While Len(NomClasseur) > 0
            Workbooks.Open NomClasseur 'Ouverture du classeur
            LigneTotal = ActiveSheet.UsedRange.Rows.Count 'On récupère le nb de ligne totale
            Range("A7:N" & LigneTotal).Copy 'On copie les données de la feuille
            Workbooks("Test.xlsm").Activate
            DerLigne = ActiveSheet.UsedRange.Rows.Count + 1 'On recherche la dernière ligne vide de la feuiulle
            Range("A" & DerLigne).Select 'on se positionne sur la dernière ligne vide de la feuille
            ActiveSheet.Paste 'Je colle les données
            Workbooks(NomClasseur).Close
            NomClasseur = Dir 'On passe au prochain classeur
    Wend