Sub ConstruitTCD()
Range("A1").CurrentRegion.Select
ActiveWorkbook.Names.Add "BD", RefersToR1C1:=Selection
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"BD").CreatePivotTable TableDestination:="", TableName:= _
"TCD"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("TCD").AddFields RowFields:="A" _
, ColumnFields:="B"
ActiveSheet.PivotTables("TCD").PivotFields("C"). _
Orientation = xlDataField
End Sub