Sub Cliquer()
Dim ar1
Dim strConst As String
strConst = "[Time].[Fiscal Day Of Year].&["
ReDim ar1(1 To Cells(Rows.Count, "H").End(xlUp).Row - 1)
For i = 1 To UBound(ar1)
ar1(i) = strConst & Cells(i + 1, "H").Value2 & "]"
Next
ThisWorkbook.SlicerCaches("Slicer_Fiscal_Day_Of_Year").VisibleSlicerItemsList = ar1
End Sub