comment faire un tcd sur VBA?

[bingopops]

bonjour à tous,
je fais mes débuts sur VBA et j'ai besoin de faire un TCD. L'enregistrement de macro me donne ça, sauf que quand je le copie dans mes modules, il ne fonctionne pas, même si je sélectionne la feuille active (en l'occurence "travail2"). ça bloque dès la def du tcd...

Pouvez-vous m'aider?

P.S: l'erreur 1004 apparaît: "erreur définie par l'objet ou l'application"



Sub tcd1()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"travail2!C1:C28").CreatePivotTable TableDestination:="", TableName:="tcd expe", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("tcd expe").PivotFields("CGD")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("tcd expe").PivotFields("L2")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("tcd expe").PivotFields("PROJET")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("TCD expe").AddDataField ActiveSheet. _
PivotTables("TCD expe").PivotFields("VALO"), _
"somme de VALO", xlSum
End Sub