Pb VBA: ComboBox activant 2filtres chacun sur 2colonnes ??

Bonjour, bonjour !

Je rencontre le souci suivant dans l'écriture d'une macro:
ma feuille HOME contient uniquement 2 boutons : "Consult" et "Edit", et c'est le 1er qui me cause des pbs.
En cliquant sur "Consult", une Combobox me demandant 1 ou 2 choix (compagnie et/ou fournisseur) s'ouvre. L'utilisateur peut sélectionner une compagnie aérienne (suggérées dans une liste) ET un fournisseur (suggérés également), ou alors seulement l'un ou l'autre.

Voici le code de cette partie qui marche bien (si ce n'est que j'aimerais que la comboBox "refuse" les requetes qui ne sont pas suggérés dans mes listes, mais c'est secondaire pour l'instant):

Private Sub UserForm_Initialize()

'   Fill the ComboBox
    
    ComboBoxSupplier.List = Array("ALL Suppliers", "B/E Aerospace", "JAMCO America", "Recaro", "Stelia", "Thompson", "ZSF", "ZSUS")
    
    ComboBoxAirline.List = Array("ALL A/L", "AAL", "AAR", "AZU", "CAL", "CPA", "CSC", "DAL", "DLH", "ETD", "ETH", "FIN", "FWI", "HVN", "MAS", "MAU", "QTR", "SIA", "TAM", "THA")

End Sub

Une fois le choix fait, le user valide avec le bouton "OK" de la ComboBox. Normalement sur la feuille "TOPICS", je dois avoir le résultat de ce filtre simultané et non pas l'un après l'autre. Les compagnies, correspondant à la colonne D; et les suppliers, à la colonne B. Et là je cale, j'ignore comment le formaliser. J'ai pensé à qlq chose du genre:

Sub ConsultOK ()
Unload Me
If ComboboxSupplier.Value = "THA"
Then call Macro1...
End If
 

Sans trop savoir écrire ma Macro1...
Je ne connaissais pas du tout l'AutoFilter ni l'AdvancedFilter; aussi j'ai travaillé sur des fichiers simples pour en comprendre le fonctionnement mais ce n'est pas mieux... Je n'arrive pas à faire en sorte que le second filtre par exemple ne se fasse pas sur le résultat du 1er filter, et ainsi perdre des données . Exemple type ci-dessous dont le résultat ne donne RIEN, le filtre se fait mais je n'ai plus que mes en-têtes...:

Sub filtre()
With Sheet1
            .AutoFilterMode = False
               With .Range("A1:B1")
                .AutoFilter
                .AutoFilter Field:=1, Criteria1:="léa"
                .AutoFilter Field:=2, Criteria1:="eva"
                End With
End With
End Sub

J'avais aussi pensé un opérateur de liaison style "Operator:=xlAnd' mais de ce que j'ai trouvé ça s'utilise quand on a 2 critères de filtre sur le meme champ, ce qui n'est pas mon cas.

Par avance, merci bcp de votre aide.

Dianex