VBA - Excel - filter PivotField with data from an OLEDB microsoft Analysis - multiple items - How can I use in VisibleItemsList a variable Array?

Question

This was very relevant : Pivotfields multiple filter Anyway, not exactly what i am looking for.

This is what I want to do: Filter a PivotField with several selected items:

enter code here
ActiveSheet.PivotTables(1).PivotFields( _
    "[Table].[Field].[Field]"). _
    VisibleItemsList = Array(***"[Datasource].[NumPieceComptable].&[Item1]", "[Datasource].[NumPieceComptable].&[ Item2]", "[Datasource].[NumPieceComptable].&[ Item3]"***)

It works.. but: This 3 options are not working:

Option1: I replace the content of array(...) by a string

enter code here
***MyFilter*** = "[Datasource].[NumPieceComptable].&[Item1]", "[Datasource].[NumPieceComptable].&[ Item2]", "[Datasource].[NumPieceComptable].&[ Item3]"
ActiveSheet.PivotTables(1).PivotFields( _
    "[Table].[Field].[Field]"). _
    VisibleItemsList = Array(MyFilter)

Option 2: I replace the content of array(...) by an array

enter code here
***MyFilterArray*** =array( "[Datasource].[NumPieceComptable].&[Item1]", "[Datasource].[NumPieceComptable].&[ Item2]", "[Datasource].[NumPieceComptable].&[ Item3]")

ActiveSheet.PivotTables(1).PivotFields( _
    "[Table].[Field].[Field]"). _
    VisibleItemsList = Array(MyFilterArray)

Option 3: I replace the content of array(...) by a string calculated on an array

enter code here
***MyFilterArray*** =array( "[Datasource].[NumPieceComptable].&[Item1]", "[Datasource].[NumPieceComptable].&[ Item2]", "[Datasource].[NumPieceComptable].&[ Item3]")

ActiveSheet.PivotTables(1).PivotFields( _
    "[Table].[Field].[Field]"). _
    VisibleItemsList = Array(join(MyFilterArray,”,”))

Option 4: I replace the array(...) by an array

enter code here
***MyFilterArray*** =array( "[Datasource].[NumPieceComptable].&[Item1]", "[Datasource].[NumPieceComptable].&[ Item2]", "[Datasource].[NumPieceComptable].&[ Item3]")
enter code here
ActiveSheet.PivotTables(1).PivotFields( _
    "[Table].[Field].[Field]"). _
    VisibleItemsList = MyFilterArray

How can I use in VisibleItemsList a variable Array ?