Filtre avec " qui contient"

Bonjour le Forum

J'aimerais utiliser un filtre pour sélectionner les éléments d'une colonne qui "contient" une partie d'un mot.

Je veux filtrer toutes les cellules de ma colonne qui contiennent "den" mais je veux taper "den" dans une cellule. Si je change la valeur de ma cellule pour "bel", je veux que le filtre sélectionne toutes les cellules de ma colonne qui "contiennent" "bel"

Voici le code que j'utilise mais je voudrais remplacer *den* par une variable qui fait référence à une cellule.

Selection.AutoFilter Field:=1, Criteria1:="=*den*", Operator:=xlAnd
End Sub


C'est le :="=*den*" qui me cause le problème. J'ai beaucoup de difficultés à utilisé les expression ="=* ... & " ... & *"

Votre aide svp.

Merci à l'avance

Xtian (du Québec)
;-) @++