VBA consolidation, code ne fonctionne pas

Bonjour

je suis débutante dans la programmation, enfin je sais pas si ça se dit comme ça.

J'ai un fichier avec plusieurs onglets (c'est une base de données par section), je souhaite consolider dans le même classeur sur une nouvelle feuille que j'ai nommé consolider. Voici le code que j'ai essayé de faire mais lorsque je clique sur mon bouton, ça m'affiche bien "consolidation terminée" sauf que rien ne se passe.

'*******************************
'procédure permettant la consolidation
'de plusieurs données
'*************************************

'Déclaration des variables
Dim i As Integer, j As Integer
Dim derniereLigne As Integer
Dim LastRowconsolidation As Integer

'Procédure permettant d'effacer toutes les données de la feuille consolidation

Sub effacedonnées()

Worksheets("consolidation").Select
Rows("6:1000000").Select
Selection.Clear
Range("A6").Select

End Sub

'Procédure permettant la consolidation des feuilles du classeur

Sub consolider()

Application.ScreenUpdating = False
effacedonnées

'Boucle permettant de lire toutes les feuilles à consolider
For j = 1 To 7 'Parcours les feuilles de A à G
Sheets(j).Select
DernierLigne = Range("A1000000").End(xlUp).Row

For i = 1 To derniereLigne
Sheets(j).Select
Rows(i).Select
Selection.Copy
Sheets("consolidation").Select
LastRowconsolidation = Range("a1000000").End(xlUp).Row + 1
Cells(LastRowconsolidation, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Next i

Next j

Application.ScreenUpdating = True
MsgBox "La consolidation est terminée...", vbOKOnly + vbInformation, "Information"

End Sub

Quelqu'un peut m'aider s'il vous plait ? je vous mets le fichier en PJ

Merci d'avance pour vos retours

Bonjour,

Problèmes de variables...

DernierLigne // For i = 1 To derniereLigne

ni l'une ni l'autre ne sont déclarées...

Place donc un Option Explicit en tête de ton module :

Option Explicit
'*******************************
'procédure permettant la consolidation
'de plusieurs données
'*************************************

Merci infiniment !