TCD sous VBA

Bonjour à Tous,

voila j'essaye de réaliser un TCD à partir d'un tableau comprenant 5 colonnes au départ.
Cependant dans mon TCD je vais seulement faire remonter des informations de 2 Colonnes.

Cependant à l'ecriture de mon code j'ai un message d'erreur qui apparait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Range("A1:O500").Select   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "blotter!L1C1:L35C15", Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="blotter!L1C17", TableName:="Tableau croisé dynamique10" _ , DefaultVersion:=xlPivotTableVersion12 Sheets("blotter").Select Cells(1, 17).Select With ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields( _ "Customer") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("Tableau croisé dynamique10").AddDataField ActiveSheet. _ PivotTables("Tableau croisé dynamique10").PivotFields("Spread PL USD"), _ "Somme de Spread PL USD", xlSum   ActiveWorkbook.Save

---

Cependant, j'ai un message d'erreur d'execution '5':
Argument ou appel de procédure incorrect

pourriez vous m'aider ?

merci

Bonjour

Essaie en remplaçant L par R (problème mélange français-anglais)

Code:

---

1 2 3 4

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "blotter!r1C1:r35C15", Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="blotter!r1C17", TableName:="Tableau croisé dynamique10" _ , DefaultVersion:=xlPivotTableVersion12

---

Merci bcp ça marche parfaitement

bonne journée