Simplification de cette écriture

Bonjour
Débutant dans cette matière quelqu'un peut-il m'aider à simplifier ceci?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Tournée" _
        )
        .PivotItems("803").Visible = True
        .PivotItems("5501").Visible = True
        .PivotItems("804").Visible = True
        .PivotItems("208").Visible = True
        .PivotItems("5206").Visible = True
        .PivotItems("9005").Visible = True
        .PivotItems("302").Visible = True
        .PivotItems("601").Visible = True
        .PivotItems("SP-05012").Visible = True
        .PivotItems("5016").Visible = True
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Tournée" _
        )
        .PivotItems("(blank)").Visible = False
    End With

Sachant que l'intitulé des items peut changer et que je ne veux pas voir apparaître les vides sans pour cela les supprimés.
Merci à vous