Tableau croisé dynamique variable

Bonjour,

Je fais un tableau croisé dynamique, avec des filtres ensuite je copie les données dans un autre onglet et je souhaiterais savoir si il était possible de rentrer un code si pas de "Nom" passer au code suivant je vous met une partie du code pour que vous puissiez comprendre

J'ai surligner en bleu au moment du bug

En espérant que vous allez pouvoir m'aider

Merci

Sheets("TCD").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("ENTITE"). _
ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("ENTITE"). _
CurrentPage = "BSO"
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("facturation maritime").Select

Bonjour

On peut éclater un TCD par valeur de page sur autant d'onglets en 1 clic donc ceci suffit

Sheets("TCD").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1")
    .PivotFields("ENTITE").ClearAllFilters
    .ShowPages PageField:="ENTITE"
End With