Macro copier coller dans un filtre

Bonjour,

J'ai créé une base de données de 24000 lignes environ sur Excel 2007 où j'ai classé des contacts clients avec le nom adresse téléphone etc...

Pour rendre l'appli plus conviviale, j'essaye de faire quelque chose qui ressemble à un formulaire de recherche. J'ai créé une cellule ou l'utilisateur doit saisir quelques lettres du nom qu'il recherche par exemple et je voudrais copier cette cellule dans le filtre "contient" afin qu'excel me renvoie toutes les lignes qui contiennent ces lettres. Bon c'est vrai qu'un clic droit sur le filtre et clique gauche sur contient c'est aussi rapide... mais bon, si quelqu'un peut m'aider, ce serait très sympa.

En fait j'ai créé une macro avec l'assistant, elle fait exactement ce que je veux sauf que pour l'exemple j'ai tapé "cha" et du coup dans la macro, il fait toujours référénce à "cha" au lieu de faire référence à la cellule. Ca doit pas être bien compliqué mais je début en vba et malgré le gros bouquin, j'y comprends rien ! Il va falloir que je prenne quelques cours, c'est sûr.

Merci d'avance à ceux qui auront un peu de courage en ce début de week-end.

Je note ma macro (qui ne fonctionnne pas, au cas où)
---------------------------------------------------------------------------------------------------------
Sub RECHNOM()
'
' RECHNOM Macro
'

'
Selection.Copy
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=4, Criteria1:= _
"=*cha*", Operator:=xlAnd
End Sub
---------------------------------------------------------------------------------------------------------


Merci