ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Matrice1!R1C1:R31C3").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select