VBA - Pivot table multiple itens start with...

Good afternoon.

I would like to ask you about a way to select multiple itens on a pivot table, starting by "BK -"
I tried severals ways but nothing worked till now.

Below, you will find the code that I have for the moment.
If someone can help me, will be grateful.

    Dim p_i As PivotItem
    
    Dim objTable As PivotTable, objField As PivotField
    
    ActiveWorkbook.Sheets("DataBase").Select
    Range("A1").Select
    
    Set objTable = Sheet1.PivotTableWizard
    ActiveSheet.Name = "Booking Desk"
   
    Set objField = objTable.PivotFields("CS_RESPONSIBLE")
    objField.Orientation = xlRowField
    Set objField = objTable.PivotFields("RESPONSIBILITY_NAME")
    objField.Orientation = xlColumnField
    Set objField = objTable.PivotFields("COMMENT_DESCRIPTION")
    objField.Orientation = xlPageField
    objField.Position = 1
    

    Set objField = objTable.PivotFields("RESPONSIBILITY_NAME")
    objField.Orientation = xlDataField
    objField.Function = xlCount
    
    ActiveSheet.PivotTables(1).Name = "BookingDesk"
      
    With ActiveSheet.PivotTables("BookingDesk").PivotFields("RESPONSIBILITY_NAME")
        .PivotItems("Booking Desk").Visible = True
        For Each p_i In .PivotItems
            If p_i.Name <> ("Booking Desk") Then
                p_i.Visible = False
            End If
        Next
    End With
    
    With ActiveSheet.PivotTables("BookingDesk").PivotFields("CS_RESPONSIBLE")
        On Error Resume Next
        .PivotItems("Adriana Ortigueira").Visible = True
        .PivotItems("Caio Carvalho").Visible = True
        .PivotItems("Daniel Alves").Visible = True
        .PivotItems("Fábio Ignácio").Visible = True
        .PivotItems("Ikaro Vieira").Visible = True
        .PivotItems("Juliana Tenório").Visible = True
        .PivotItems("Kleber Cardozo").Visible = True
        .PivotItems("Lucas Silva").Visible = True
        .PivotItems("Marcelle Bueno").Visible = True
        .PivotItems("Nara Santos").Visible = True
        .PivotItems("Pedro Cardoso").Visible = True
        .PivotItems("Robson Santos").Visible = True
        .PivotItems("Thiago Fernandes").Visible = True
        .PivotItems("Cintia Migues").Visible = False
        .PivotItems("Ronaldo Magueta").Visible = False
        .PivotItems("Talita Santos").Visible = False
        .PivotItems("André de Jesus").Visible = False
        On Error GoTo 0
    End With
    
    ActiveSheet.PivotTables("BookingDesk").ColumnGrand = False
    ActiveSheet.PivotTables("BookingDesk").TableStyle2 = "PivotStyleDark16"

    With ActiveSheet.PivotTables("BookingDesk")
        .ColumnGrand = True
        .RowGrand = False
    End With
       
End Sub

Last code that I tied is :

    Dim var As Variant
    var = "BK -*"
 
 With ActiveSheet.PivotTables("BookingDesk").PivotFields("COMMENT_DESCRIPTION")
        On Error Resume Next
    EnableMultiplePageItems = True
    .PivotFilters. _
    add Type:=xlCaptionDoesNotEqual, Value1:=var
    On Error GoTo 0
    End With

Unfortunatly it did not work.
Can you please help me ?

Waiting for your feedback
Regards