Problème création TCD en VBA

Bonjour,

J'essaye actuellement de créer ou juste changer les données d'un TCD à partir de données.
J'ai essayé pleins de codes différents, mais aucun ne fonctionne !

Le but : Créer un TCD à partir du tableau de données Feuil9 A7:X97 dans Feuil8
Voici un code que j'ai essayé :

ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[Feuil9!A7].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="Feuil8!R3C1", _
TableName:="Mon TCD"

Sans succès...

Voici le code que j'obtiens si j'enregistre le macro :

Sheets("Feuil9").Select
ActiveWindow.SmallScroll Down:=-24
Range("A7").Select
ActiveWorkbook.Worksheets("TCD accord Commun").PivotTables( _
"Tableau croisé dynamique1").PivotCache.CreatePivotTable TableDestination:= _
"Feuil8!L20C13", TableName:="Tableau croisé dynamique5", _
DefaultVersion:=xlPivotTableVersion10

Si je recommence avec ce code, il ne donne rien...

Merci de votre aide !!!