Excel VBA TCD source

Bonjour,

je suis en train de programmer une macro qui crée un TCD/GCD.

J'ai donc enregistré la macro avec l'enregistreur. Mais j'ai un soucis :

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "23.04.2019 01.45!R1C1:R100C7", Version:=xlPivotTableVersion15). _
        CreatePivotTable TableDestination:="Feuil1!R1C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion15

Dans cette partie, Excel prend en compte le fait que la page source des données s'appelle 23.04.2019 01.45

Or, lors de l'enregistrement elle s'appelait ainsi, mais plus maintenant.
J'aimerais donc que la source des données soit, soit l'active sheet; soit la feuille dont le nom est inclus dans la variable que j'ai nommé DDJok

J'ai tenté la méthode proposée ici https://forums.commentcamarche.net/forum/affich-23027919-excel-vba-tcd-sur-feuille-variable#answers mais je tombe sur une erreur.

Merci d'avance