Ligne de commande VBA

Bonjour,

Je voudrais pourvoir dans une ligne de commande en VBA remplacer le chiffre 1005 par 1004
ce chiffre 1004 serait dans une cellule de ma sheet1
Donc comment amalgamé cette ligne de BI avec ma cellule ?

ActiveSheet.PivotTables("PivotTable2").PivotFields( _
"[Client Vendu à].[Représentant - Code].[Représentant - Code]"). _
VisibleItemsList = Array( _
"[Client Vendu à].[Représentant - Code].&[1005]&[OFFIX]")