Variable dans filtre TCD et VBA

Bonjour,

J'ai besoin de rendre variable le nom de fonds d'investissements pour lesquels je cherche les NAV en fonction du mois. Pour cela, j'ai un TCD avec comme filtre "Fund Name". Voila le code que j'ai écris pour cela:

Sub dataquery()

Dim QWb, wb As Workbook
Dim dl, i As Integer
Dim Fund_Name As Variant
Dim pvt As PivotTable

Set wb = ActiveWorkbook
Set QWb = Workbooks.Open("C\Consultant\QuerySR.xlsb")

wb.Activate

dl = Sheets("Data_Strategy").Range("A1").End(xlDown).row

For i = 2 To dl
    If Sheets("Data_Strategy").Cells(i, 1) = "Fund" Then
        Fund_Name = Sheets("Data_Strategy").Cells(i, 4)
        QWb.Activate

       Range("B3").Select
    ActiveSheet.PivotTables("PivotTable2").PivotFields( _
        "[Product].[Fund Name].[Fund Name]").VisibleItemsList = Array( _
        "[Product].[Fund Name]." & Fund_Name) 'C'est ici que ca bloque, quand le nom du fonds est en variable ca ne marche pas
    End If
Next
End Sub

Fund_Name est la variable. Cependant, cette méthode ne marche pas alors que quand le nom du fonds est écrit en toute lettre cela fonctionne.

Merci de votre aide.

Quentin

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.