Coller en vba une coller une grande quantité de donnée

[pmfontaine]

Bonjour,
Voila un code qui me permet de transférer des données sur un fichier que je crée en vba.
ça marche bien, mais c'est un peu long pour coller, car il y à environ 25000 lignes sur 22 colonnes (Soit plus de 500 000 données à coller.
Est-ce qu'il y aurait un moyen plus rapide pour coller une si grande quantité de donnée ?
Merci d'avance pour votre aide
Patrick

Sub CreationBD ()
Dim XL As New Excel.Application
With Sheets("BD")
       tabloBD = .Cells(2, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1, 22)
End With
Chemin = ActiveWorkbook.Path
Workbooks.Add
Application.DisplayAlerts = False
Sheets("Feuil2").Delete
Sheets("Feuil3").Delete

Sheets("Feuil1").Select
Sheets("Feuil1").Name = "mafeuille"

With Sheets("mafeuille")
    For i = 1 To UBound(tabloBD)
        For Colonne = 1 To 22
            .Cells(i, Colonne) = tabloBD(i, Colonne)
        Next Colonne
    Next i
End With

ActiveWorkbook.SaveAs Filename:=Chemin & "\BD.xlsx"
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

 

[Dranreb]

Bonsoir.
Pourquoi ne faites vous pas simplement :
[A].Resize(UBound(tabloBD, 1), 22).Value = TabloBD

 

[pmfontaine]

Bonsoir,
Merci Dranreb pour votre réponse.
ça marche avec
Cells(1, 1).Resize(UBound(tabloBD, 1), 22).Value = TabloBD

 

[pmfontaine]

J'ai oublié de préciser que [A].Resize(UBound(tabloBD, 1), 22).Value = TabloBD
Me renvoie :
Erreur d'exécution '424':
Objet requis

C'est pourquoi j'ai remplacé [A] par Cells(1, 1)

 

[Dranreb]

Bonjour.
Oui, bien, ça va aussi. C'était une simple faute de frappe. Je voulais évidemment dire
[A1].Resize(UBound(tabloBD, 1), 22).Value = TabloBD