Sub test()
Maplage = ActiveSheet.Range("A1").CurrentRegion.Address
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Maplage).CreatePivotTable _
TableDestination:="", TableName:="TCD4", _
DefaultVersion:=xlPivotTableVersion12
End Sub