XL 2016 Consolider un fichier

Bonsoir forum j'espere que vous allez bien , je demande votre aide pour trouver une solution à mon probleme en fait mon objectif c'est de consolider des feuilles excel contenant le meme model de tableau dans une feuille globale j'ai ecris ce code , sauf que je sais pas comment est excel va connaitre les tableau dans les feuilles et ne me copie pas les entête
Sub transfert()

Dim i As Byte
Dim DLig As Long

DLig = Range("A7").End(xlDown).Row + 1

For i = 1 To Worksheets.Count

If UCase(Sheets(i).Name) <> "Base-Global" Then

Sheets(i).Cells("A1").CurrentRegion.Copy Sheets("Base-Global").DLig



End If

Next

End Sub