AV

Ave,

Un conseil : Enregistrer et tester sous 2000 car la compatibilité descendante et sujette à quelques aléas alors que celle ascendante ne pose quasiment aucun problème.
propriétés nouvelles et Arguments nouveau parmi des méthodes existantes
Sans tester, tu risques d'avoir du mal à corriger une version XL2003 pour qu'elle soit compatible avec XL2000
Exemple de 2 macros enregistrées (brut de décoffrage) pour la création d'un TCD simple :

Sub EXCEL2000()
Range('A1').Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
'Feuil1!R1C1:R20C3').CreatePivotTable TableDestination:=Range('E1'), _
TableName:='Tableau croisé dynamique3'
ActiveSheet.PivotTables('Tableau croisé dynamique3').SmallGrid = False
ActiveSheet.PivotTables('Tableau croisé dynamique3').AddFields RowFields:= _
'Noms', PageFields:='Fonctions'
ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields('Valeurs'). _
Orientation = xlDataField
Application.CommandBars('PivotTable').Visible = False
End Sub

Sub EXCEL2003()
Range('A1').Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
'Feuil1!R1C1:R20C3').CreatePivotTable TableDestination:= _
'[Classeur1.xls]Feuil1!R1C5', TableName:='Tableau croisé dynamique3', _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables('Tableau croisé dynamique3').AddFields RowFields:= _
'Noms', PageFields:='Fonctions'
ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields('Valeurs'). _
Orientation = xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars('PivotTable').Visible = False
End Sub

AV [aaa]