Recherche d'un mot avec affinage

Bonjour à tous,

Voilà en fait j'ai créé un UserForm où il y a 3 champs de sélection, une textbox et 2 listes déroulantes. Les 3 permettent de ramener des lignes d'un autre classeur en fonction de plusieurs critères.

Mon problème est le suivant : quand je met un mot dans la textbox et qu'ENSUITE je sélectionne un des éléments d'une liste, il me fait que le tri avec la liste et il perd le tri demandé par la textbox. Idem dans l'autre sens.

Voilà mon code, j'ai conscience que c'est une histoire de Call (je pense) mais je n'ai pas trouvé comment résoudre ça.. (ou j'ai mal cherché c'est possible)

Private Sub Secteur_DropButtonClick()
Dim i As Integer, k As Integer, a As Integer

Application.ScreenUpdating = False


With Secteur                        'Liste des secteurs
    .AddItem "BATTERIES"
    .AddItem "DIVERS"
    .AddItem "E/S"
    .AddItem "ELEC"
    .AddItem "FEU"
    .AddItem "GOTIS"
    .AddItem "GPU"
    .AddItem "HYDRO"
    .AddItem "MECA"
    .AddItem "MODIF"
    .AddItem "ROUES"
End With


i = 7                               'importer les lignes correspondant au secteurs de l'onglet Hist
For k = 2 To 2000

    If Secteur.Value Like Sheets("Hist").Range("K" & k).Value Then
            Sheets("Sélection").Range("A" & i & ":" & "N" & i).Value = Sheets("Hist").Range("A" & k & ":" & "N" & k).Value
            i = i + 1
    End If
    
Next

For a = 7 To 2000                   'vide les lignes qui ne correspondent pas au tracteur sélectionné

    If Not Secteur.Value Like Sheets("Sélection").Range("K" & a).Value Then
        Sheets("Sélection").Range("A" & a).Select
        Selection.EntireRow.ClearContents
    End If
    
Next
Range("A7:A2000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete       'supprimer les cellules vides
End Sub

Private Sub Constat_AfterUpdate()
Dim i As Integer, k As Integer

Application.ScreenUpdating = False

If UCase(Constat.Text) Like "" Then         'si le champ est vide, ne rien afficher
    Exit Sub
End If


i = 7

Dim CelluleCible As Range, C As Range

For k = 2 To 2000                            'mettre la dernière ligne du tableur

    For Each C In Sheets("Hist").Range("I" & k & ":" & "J" & k) 'Pour toutes les cellules de la colonne concernée
    
        Set CelluleCible = C.Find(what:=UCase(Constat.Text), LookIn:=xlValues, LookAt:=xlPart)      'trouver le mot voulu dans les cellules
        
        If Not CelluleCible Is Nothing Then         'amener les lignes qui correspondent dans le classeur
            Sheets("Sélection").Range("A" & i & ":" & "N" & i).Value = Sheets("Hist").Range("A" & k & ":" & "N" & k).Value
            i = i + 1
        End If
        
    Next
    
Next
End Sub

Private Sub Tracteurs_DropButtonClick()
Dim a As Integer, k As Integer, i As Integer



With Tracteurs                  'Liste des tracteurs
    .AddItem "33901200003"
    .AddItem "3390996207"
    .AddItem "3390016286"
    .AddItem "3390036817"
    .AddItem "33900606840"
    .AddItem "33900706853"
End With

Call Constat_AfterUpdate            'appeler les deux autres programmes pour faire la selection par tracteurs après
Call Secteur_DropButtonClick
    
i = 7
If Constat.Text = "" And Secteur.Value = "" Then        'si les autres champs sont vides

    For k = 2 To 2000

        If Tracteurs.Value Like Sheets("Hist").Range("E" & k).Value Then        'importer toutes les lignes du tracteurs
            Sheets("Sélection").Range("A" & i & ":" & "N" & i).Value = Sheets("Hist").Range("A" & k & ":" & "N" & k).Value
            i = i + 1
        End If
    Next
End If
    
For a = 7 To 2000                   'vide les lignes qui ne correspondent pas au tracteur sélectionné

    If Not Tracteurs.Value Like Sheets("Sélection").Range("E" & a).Value Then
        Sheets("Sélection").Range("A" & a).Select
        Selection.EntireRow.ClearContents
    End If

Next
Range("A7:A2000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Private Sub Valider_Click()
Unload UserForm1
End Sub

Et de manière générale en fait, chaque code fonctionne si il est seul mais dès que j'en combine deux tout se mélange et ça coince.

Et petite question subsidiaire, Est-ce que le passage de Excel 2010 à 2013 pourrait poser problème ?

Merci d'avance !

Cordialement, PhenlKs