Sub ModeleTableau()
'
' ModeleTableau Macro
'
'
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BaseSainePRO", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Tableaux dynamiques!R6C53", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion12
Sheets("Tableaux dynamiques").Select
Cells(6, 53).Select
End Sub