Existe t'il une commande "ne pas tenir compte si dossier vide" ?

Bonjour,

Ma macro me permets d'enregistrer des PDF pour l'ensemble de mes magasins. Cependant pour certains magasins et selon les mois il se peut qu'il n'y ai pas de donnée.

Le problème c'est que dans ce cas là la macro se bloque avec un message d'erreur et me demande de choisir entre "débogage; arrêt; fin etc"

Ci dessous ma macro pour un magasin. Existe t'il une commande permettant de passer au magasin suivant s'il n'y pas de donnée pour ce magasin ?

"Sub test()
'
' PDF_HYPER Macro
'


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
        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

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


End Sub"