VBA Excel: sélection auto d'items dans un filtre

Bonjour,

Je travaille sur Excel 2013 et grâce à f894009, j'ai pu optimiser mon code VBA pour créer un tableau croisé dynamique (T.C.D.) qui définit automatiquement la taille du tableau source.

A présent, j'aimerais savoir comment faire pour sélectionner grâce à mon code les champs d'un filtre sans les nommer entièrement, mais qui comprennent certains caractères: exemple: sélectionner les codes de villes qui comprennent "ar" ("*ar"?) sans avoir à les énumérer car il pourrait y en avoir beaucoup; quelqu'un aurait-il une idée? Voici la partie du code concernée ainsi que le lien de mon fichier: https://www.cjoint.com/c/JGokwqzXSnj:

Sub Creation_TCD()
    Call DeletePivotTable
    adr = Sheets("feuil1").UsedRange.Address
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= "Feuil1!" & Sheets("Feuil1").UsedRange.Address, Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="TT!R1C1", TableName:="Tableau croisé dynamique1", DefaultVersion:=5
    Sheets("TT").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Statut pro")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nom")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ville")
        .Orientation = xlPageField
        .Position = 1
    End With
End Sub

Je vous en remercie par avance, sachant que toutes les pistes pouvant me permettre d'avancer sont les bienvenues!!

Merci!!