Erreur d'excécution '5' VBA

Bonjour,

J'essaye d'automatiser la création de tableau dynamique avec une macro, j'ai alors enregistrer une macro avec des feuille du même noms que ceux sur lesquels je reproduis ma macro.

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="A", _
        Version:=7).CreatePivotTable TableDestination:="Taux d'inter!R4C1", _
        TableName:="Tableau croisé dynamique1", DefaultVersion:=7

Voici le morceau de code qui bug (c'est pour le travail je ne peux pas divulguer beaucoup plus)

Mon excel est bien en français et il n'y a aucun autre TCD créé dans le Workbook dans lequel je l'utilise.

Si quelqu'un de compétent sait ce qu'il ne va pas dans mon code je veux bien un peu d'aide.

NB : La source data A contient 18 000 ligne et 70 colonnes ce qui revient a 1 200 000 cellules, serait-ce le problème ?
Windows / Edge 16.16299