Sub CREERTCD()
'
' CREERTCD Macro
'
' Sélection des données
Sheets("ABS").Select
Columns("A:G").Select
' Création du TCD
ActiveWorkbook.Worksheets("TCD").PivotTables( _
"Tableau croisé dynamique7").PivotCache.CreatePivotTable TableDestination:= _
"", TableName:="Tableau croisé dynamique4", DefaultVersion:= _
xlPivotTableVersion12
' Actualiser
Range("A3").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh
End Sub