ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BASE JA!R1C1:R388C14", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="", TableName:="Tableau croisé dynamique10", _
DefaultVersion:=xlPivotTableVersion14