Problème erreur exécution 13

Bonjour quelqu'un peut m'aider
je n'arrive pas a exécuter ma macro sur excel un message s'affiche erreur exécution 13
incompatibilité de type sur la déclaration Rows("6:1000000").Select ou est l'erreur
voici ma macro
'Cette vidéo va vous montrer comment fusionner ou combiner plusieurs feuilles dans une nouvelle feuille en utilisant une procédure VBA.

'Code VBA:

'Déclaration des variables au niveau du Module

Dim i As Integer, j As Integer, k As Integer
Dim DerniereLigne As Integer
Dim LastRowConsolidation As Integer


'***************************************************
' Procédure permettant d'effacer les données de
' la consolidation afin d'éviter les doublons
'***************************************************

Sub EffaceConsolidation()

'On se positionne sur la feuille Consolidation
Worksheets("Consolidation").Select
'On sélectionne la plage correspondante aux données à effacer
Rows("6:1000000").Select
'On efface le contenu et la mise en forme
Selection.Clear 'ou Selection.delete shift:=xlUp
'On se repositionne sur le premier enregistrement à copier
Range("A6").Select

End Sub

'****************************************************
' Procédure permettant de réaliser une consolidation
' ou synthèse sur autre feuille.
'****************************************************

Sub Consolider()

'On désactive le raffraichissement de l'écran scintillement
Application.ScreenUpdating = False
'On appelle la procédure permettant d'effacer les données
EffaceConsolidation
'On va créer une boucle permettant de lire toutes les feuilles à consolider
'ici nous avons 12 feuilles Janvier à Décembre

For j = 1 To 9 'on parcours les 12 premières feuilles

'On sélectionne la première feuille
Sheets(j).Select
'On se positionne sur la dernière ligne non vide
DerniereLigne = Range("A1000000").End(xlUp).Row
'On parcours tout le tableau à partir de la ligne pour copier chacune ligne
For i = 6 To DerniereLigne
'On sélectionne la première feuille
Sheets(j).Select
'On sélectionner la première ligne
Rows(i).Select
'On copie la ligne
Selection.Copy
'Où, sur la feuille consolidation, il faut donc la sélectionner
Sheets("Consolidation").Select
'Il faut trouver la dernière ligne non vide de la feuille consolidation
LastRowConsolidation = Range("A1000000").End(xlUp).Row + 1
'On sélectionne la cellule vie et la première colonne
Cells(LastRowConsolidation, 1).Select
'Une fois positionné, on colle les données
ActiveSheet.Paste
Application.CutCopyMode = False

Next i

Next j

'On réactive le raffraichissement de l'écran scintillement
Application.ScreenUpdating = True
'On affiche un message qui prévient que la consolidation est terminée
MsgBox "La consolidation est terminée...", vbOKOnly + vbInformation, "Message"

End Sub