Sub Test()
Application.Goto Reference:="Tableau1"
ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("Tableau1"), "Date"). _
Slicers.Add ActiveSheet, , "Date", "Date", 169.5, 446.25, 144, 187.5
ActiveSheet.Shapes.Range(Array("Date")).Select
End Sub
Testez cette macro sur le fichier exemple
Chez moi, j'obtiens bien un segment (comme sur la copie écran du message#16)
Ça tombe bien j'utilise justement Excel 2013