Erreur de copier coller dans une macro excel

Bonjour,
J'ai un petit probleme sous excel.
Je fais une macro qui me permet de copier des formules que se soit des formules de calcul simple ou matricielles
voici mon code

nbLignes = 1
For Each Cell In Range("A3:A25000")
If (Cell.Value > "") Then
nbLignes = nbLignes + 1
End If
Next
Range("J1:Z1").Select
Selection.Copy
' colle les formules en fonction du nombre de ligne de données.
Range(Cells(Entete, 10), Cells(nbLignes + 1, 26)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

et voici le message d'erreur que j'ai
la methode PasteSpecial de la classe Range a echoué.


si je modifie mon code de cette maniere nbLignes = 1
For Each Cell In Range("A3:A25000")
If (Cell.Value > "") Then
nbLignes = nbLignes + 1
End If
Next
Range("J1:Z1").Select
Selection.Copy
' colle les formules en fonction du nombre de ligne de données.
Range(Cells(Entete, 10), Cells(nbLignes + 1, 26)).Select
ActiveSheet.Paste
j'obtient le message d'erreur suivant
la selection est trop grande.


Ma selection s'etant sur 17 colonnes et sur plus de 16000 lignes

Merci d'avance