Manipulation TCD par VBA

Bonjour,

Je suis actuellement en train de travailler sur une macro excel et mon problème est le suivant:

Je crée une liste de founisseurs, puis je souhaite m'en servir pour modifier les filtres de mon TCD.
Code:

1 2 3 4 5 6 7 8 9 'On crée la collection de Fournisseurs: Dim ListeFournisseurs As New Collection 'On remplit la collection ... 'Voici ensuite la ligne de manipulation TCD: ActiveSheet.PivotTables("TCD SPLIT").PivotFields("fournisseur").PivotItems(ListeFournisseurs(2)).Visible = True
Cette ligne ne fonctionne pas car ListeFournisseurs(2) == PUMA
Or, il foudrait que ça ressorte "PUMA", avec les guillemets.

J'ai essayé

Code:

ActiveSheet.PivotTables("TCD SPLIT").PivotFields("fournisseur").PivotItems(" & ListeFournisseurs(2) & ").Visible = True

mais bien évidement le programme interprete & ListeFournisseurs(2) & comme une chaine de caractères...

J'ai fait quelques autre tentatives mais sans succès.

Quelqu'un a t-il la solution à ce problème?

Merci d'avance!