Erreur à trouver

Bonjour tout le monde,

j'ai retranscrit plusieurs code que vous m'avez aidé à ecrire depuis ces derniers jours, mais j'ai du mal écrire une ligne,

en effet après chaque recherche filtrantre, ma fenetre ne se re actualise pas. Si par exemple je choisi un "donnée" dans la combobox 1 cela me trouve le bon resultat mais à la recherche suivante il me perd des donnees, je suis obligé de faire une recherche avec le mot clé tout et de re ouvrir l userform.

Ci joint la feuille excel

En vous remerciant pour l aide.

Bonsoir

Rajoute cette ligne

Private Sub UserForm_Initialize()
'permet de faire apparaitre une liste dans la combobox.

Dim Tablo, T2(), DerLigne As Long, Indice As Integer, J As Long, K As Integer

  'designation d'une liste

  With Feuil1                                           ' Avec la feuille "Imputation"
    If .AutoFilterMode = True Then .AutoFilterMode = False
    DerLigne = .Range("D" & Rows.Count).End(xlUp).Row   ' Dernire ligne colonne L

Bon bah que dire, c est parfait. Cela ne bug plus. Je n'avais pas ecrit la phrase au bon endroit je l avais mise dans le commandbutton et non pas dans userform.

Enfin bref.

Un grand merci.

Bonne soirée