Erreur VBA pour macro TCD

Bonjour, je cherche à créer un tableau croisé dynamique à partir de l'enregistrement d'une macro, mais j'ai une erreur à cette ligne :

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Table1", Version:=6).CreatePivotTable TableDestination:="Feuil1!R3C1", _
TableName:="Tableau croisé dynamique1", DefaultVersion:=6

Ne connaissance pas le VBA, quelqu un peut il m aiguiller sur la solution ?

Bonjour

Sur tous les forums on déconseille la création de TCD par VBA

On crée et peaufine le TCD manuellement puis on peut en changer la source par VBA ou POwerQuery ou utiliser un fichier externe dont le nom ne change pas mais le contenu est actualisé ou remplacé...