Uma possibilidade, veja se atende

Funcionou do modo que queria.
Porém, nas text box, está diferenciando letras maiúsculas das minusculas, teria como tirar essa exigência?

Altere a rotina de pesquisa confporm abaixo

Private Sub Pesquisa_Click()
Dim Lin As Integer
    
Lin = 2
'Preenchimento Lista View
ListView1.ListItems.Clear
    
Do Until Sheets("Base").Cells(Lin, 2) = ""
    If UCase(Cells(Lin, 2).Value) Like "*" & UCase(Me.Lit_Setor.Text) & "*" And _
       UCase(Cells(Lin, 3).Value) Like "*" & UCase(Me.Txt_Documento.Text) & "*" And _
       UCase(Cells(Lin, 5).Value) Like "*" & UCase(Me.txt_DatadeEmissão.Text) & "*" And _
       UCase(Cells(Lin, 6).Value) Like "*" & UCase(Me.txt_DatadeExclusão.Text) & "*" And _
       UCase(Cells(Lin, 7).Value) Like "*" & UCase(Me.txt_Prateleira.Text) & "*" And _
       UCase(Cells(Lin, 8).Value) Like "*" & UCase(Me.txt_CaixaMEMODOC.Text) & "*" And _
       UCase(Cells(Lin, 9).Value) Like "*" & UCase(Me.txt_CaixaDiffucap.Text) & "*" Then
        
        Preenche_ListView (Lin)
    
    End If
    Lin = Lin + 1
Loop
End Sub