VBA-Changer la sourcedata d'un TCD

Bonjour, j'ai cette macro avec laquelle je m'arrache le peu de cheveux qu'il me reste

Sub majtcd()
  Dim plage As Range
  Dim dl As Long, dc As Long

  Feuil3.Activate

  dl = Feuil3.Range("a" & Rows.Count).End(xlUp).Row
  dc = Feuil3.Cells(1, Columns.Count).End(xlToLeft).Column
  Set plage = Feuil3.Range(Cells(1, 1), Cells(dl, dc))

  Feuil4.PivotTables("Tableau croisé dynamique1").SourceData = plage
End Sub

Je veux simplement changer ma plage de donnée qui est évolutive dans le temps mais écrit comme ceci, vba toussote un peu sur :

 Feuil4.PivotTables("Tableau croisé dynamique1").SourceData = plage

"Erreur définie par l'application ou bien l'objet"

C'est quoi s'il vous plait la bonne syntaxe ?

PAr avance merci