Problème dans ma macro

Bonjour,

Il me semble que la macro bloque à cause du "/" présent dans le nom de mon magasin car pour les autres je n'ai aucun souci.
Comment puis-je résoudre le problème svp ?

"Range("A" & Rows.Count).End(xlUp).Select


Sheets(Array("Analyse jour Décote Auchan", "Analyse jour hors Décote Auchan")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="R:\Démarques\décote STOP GASPI\Hypers\" & NomFichier


Sheets("Analyse jour Décote Auchan").Activate

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("magasin" _
)
For Each Pi In .PivotItems
If Pi.Name <> "AUCHAN SOUPPES/LOING" Then .PivotItems(Pi.Name).Visible = False
.PivotItems("AUCHAN SOUPPES/LOING").Visible = True ==> LA LIGNE QUI BLOQUE
Next

End With

NumJour = Cells(2, 4).Value
NomMag = "AUCHAN SOUPPES SUR LOING"
NomFichier = "Stop Gaspi " & NumJour & " - " & NomMag

Range("A" & Rows.Count).End(xlUp).Select
Sheets("Analyse jour hors Décote Auchan").Activate
'
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("magasin" _
)
For Each Pi In .PivotItems
If Pi.Name <> "AUCHAN SOUPPES/LOING" Then .PivotItems(Pi.Name).Visible = False
.PivotItems("AUCHAN SOUPPES/LOING").Visible = True
Next

End With"