Insérer un TCD via VBA

Bonjour à tous,
j'ai créé une macro qui ouvre un fichier. Après quelques retraitements automatisés, je cherche à créer un tableau croisé dynamique.
J'ai utilisé l'enregistreur de macro qui me donne la macro suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro24()
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Parc!R1C1:R14554C25", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Facturation Ligne!R1C1", TableName:= _
        "Tableau croisé dynamique11", DefaultVersion:=xlPivotTableVersion10
    Sheets("Facturation Ligne").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields( _
        "Donneur d'ordre")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique11").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique11").PivotFields("Ligne"), _
        "Somme de Ligne", xlSum
    With ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields( _
        "Somme de Ligne")
        .Caption = "Nombre de Ligne"
        .Function = xlCount
    End With
End Sub

Mon code bloque spécifiquement sur cette partie qui se surligne en jaune:

Code:

1
2
3
4
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Parc!R1C1:R14554C25", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Facturation Ligne!R1C1", TableName:= _
        "Tableau croisé dynamique11", DefaultVersion:=xlPivotTableVersion10

J'avoue que je bloque complètement, est-ce que quelqu'un aurait déjà rencontré ce type de problème ?

Merci et bonne journée !