XL 2016 VBA transférer le contenu d'un tableau dans une plage de cellules

Option Explicit
Option Base 1

Sub ConsolidateData()

'Objectif : consolider le contenu de plusieurs onglets dans un seul

'variables tableaux
Dim A() As Variant
'variables de dimensions
Dim nbOnglet, nbligne As Integer
Dim nbcolonne As Variant
Dim nbTotalCellule, nbTotalLigne, nbTotalColonne As Long

'variables d'index -> parcours des grilles xls
Dim f, i, j As Integer

nbOnglet = Worksheets.Count
nbTotalCellule = 0
nbTotalLigne = 0
nbTotalColonne = 0
nbcolonne = InputBox("Veillez entrer le nombre de colonne que comporte le fichier standard : ")
'contrôle de la saisie
If nbcolonne < 1 Then
    MsgBox "Vous ne pouvez saisir qu'un nombre entier positif ! "
    Exit Sub
End If
If Not IsNumeric(nbcolonne) Then
    MsgBox "Vous ne pouvez saisir qu'un nombre entier positif ! "
    Exit Sub
End If

'import des valeurs
For f = 2 To nbOnglet
    nbligne = WorksheetFunction.CountA(Worksheets(f).Range("A:A"))
    For i = 1 To nbligne
        nbTotalLigne = nbTotalLigne + 1
        For j = 1 To nbcolonne
            nbTotalColonne = nbTotalColonne + 1
            ReDim Preserve A(3, nbTotalLigne)
            A(j, nbTotalLigne) = Worksheets(f).Cells(i, j)
            nbTotalCellule = nbTotalCellule + 1
        Next j
    Next i
Next f

MsgBox ("Pour info, Nb total d'onglets importés : " & nbOnglet - 1)
MsgBox ("Pour info, Nb total de lignes importées : " & nbTotalLigne)
MsgBox ("Pour info, Nb total de cellules importées : " & nbTotalCellule)

'restitution des valeurs

'Worksheets(1).Range("A1:C" & nbTotalLigne) = WorksheetFunction.Transpose(A)
Worksheets(1).Range(Cells(1, 1), Cells(nbTotalLigne, nbcolonne)).Value = WorksheetFunction.Transpose(A)