ActiveWorkbook.SlicerCaches.Add(ActiveSheet.PivotTables( _
"Tableau croisé dynamique1"), "C_LIB").Slicers.Add ActiveSheet, , "C_LIB", _
"C_LIB", 89.25, 272.25, 144, 198.75
ActiveWorkbook.SlicerCaches.Add(ActiveSheet.PivotTables( _
"Tableau croisé dynamique1"), "C_ID_VAL").Slicers.Add ActiveSheet, , "C_ID_VAL" _
, "C_ID_VAL", 126.75, 309.75, 144, 198.75
ActiveSheet.Shapes.Range(Array("C_ID_VAL")).Select