XL 2010 Actualiser un TCD en utilisant la macro VBA

[Demha_2022]

Bonjour,

J'ai un fichier excel dont une de ses feuilles contient le TCD , j'importe quotidiennement des données dans cette feuille , ensuite je me réffère de ces données pour créer un TCD (Tableau Croisé Dynamique).
Ce que je souhaiterais c'est de mettre automatiquement le TCD à jour ou l'actualiser à chaque fois que j'importerai de nouvelles dans cette feuille.
J'ai fait appel à la macro VBA pour actualiser mon TCD , mais il me semble que j'ai un problème dans ma macro que j'ai fait , la macro s'exécute ligne par ligne sans aucun souci sauf que les données du TCD ne se mettent pas à jour ou ne s'actualise pas à chaque fois qu'il ya de nouvelle données que je colle dans la feuille qui contient le TCD

Voici mon code

Public Sub raffraichissement_TCD()
' raffraichir ou actualiser le TCD
Dim mypivot As PivotTable
Dim ws As Worksheet

Set ws = Sheets("Feuil5")
'ws.Activate
For Each mypivot In Sheets("Feuil5").PivotTables
 If mypivot.Name = "mon tableau croisé dynamique" Then
   mypivot.RefreshTable
   mypivot.PivotCache.Refresh
  
 End If

Next mypivot
ws.Activate
Range("BD8").Select
'ActiveWorkbook.RefreshAll
End Sub

Quelqu'un aurait svp une idée ou un astuce pour me passer afin de résoudre ce problème d'actualisation du TCD ?
Je compte sur votre bonne compréhension et sur votre lumière