XL 2013 MACRO CREER TABLEAU CROISE

Sub TCD_OK()
Dim src$, pCache As PivotCache, pvt As PivotTable
src = [A1].Parent.Name & "!" & Range("A2:C10").Address(ReferenceStyle:=xlR1C1)
Set pCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=src)
Set pvt = pCache.CreatePivotTable(TableDestination:=ActiveSheet.[E1], TableName:="TCD")
pvt.AddFields RowFields:="CHAMP1", ColumnFields:="DATE"
pvt.PivotFields("VALEURS").Orientation = xlDataField
[D1].Select
End Sub