Bonjour à tous j'ai ici un problème de génération de tableau croisé dynamique avec l'aide d'une macro sur vba. La macro fonctionne sur mon ordinateur avec la version de excel 2003 mais ne fonctionne pas avec d'autre version plus récente. Pourquoi?

Voici ma portion de code qui génère le TCD.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Quote"), _
        "Nombre de Billed", xlCount
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Billed"), _
        "Nombre de Quote", xlCount
 
    Range("B13").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Nombre de Quote").Function = xlSum
    ActiveWorkbook.ShowPivotTableFieldList = False
 
    Range("B13").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Somme de Quote")
        .NumberFormat = "# ##0,00\ [$€-1]"
    End With
Ça plante toujours dans cette partie du code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 Range("B13").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Somme de Quote")
        .NumberFormat = "# ##0,00\ [$€-1]"
    End With
Merci d'avance