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