AFEH a écrit :
Une 2ème avec des mots clés de la colonne (la sélection dans la listbox se fait lettre par lettre)
Merci au forum où j'ai trouvé cette méthode.
Joli !
Mettre ceci (ajouter * devant TextBox1.Value :
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=CBoRecherche.ListIndex + 1, Criteria1:="=*" & TextBox1.Value & "*", Operator:=xlAnd
Pour que cela fonctionne sur un autre mot clé que le premier de la liste !