Macro filtre automatique excel

Bonjour à tous.
Je viens vous soumettre une petite problématique. En ce qui me concerne je bloque dessus depuis a peu près une semaine…
Je viens de créer un fichier comportant 5 colonnes : nom, statut, n° 1, n° 2 et date.
Ce fichier s’étant sur 4000 lignes actuellement et il est destiné a évoluer.
Comme vous pouvez l’imaginer , les noms et numéro sont tous différents. De plus la colonne nom contient les noms et prénom.
Ceci dit voilà ma problématique :
Je cherche à automatiser un filtre automatique via un bouton (macro).
C’est à dire qu’en cliquant sur ce bouton une boite de dialogue s’ouvre, je rentre le nom que je recherche et la magie du filtre automatique opère.
Tout ça pour éviter de l’activer à chaque voyage, sélectionner « personnalisé », choisir « contient » et rentrer le nom que je veux.

J’ai réussi à faire un morceau de code ouvrant la fenêtre de dialogue et à exécuter le filtre auto MAIS aucun résultat ne s’affiche…

Sub recherchernom()
Dim recherchernom As String
Recherchernom = InputBox("RECHERCHE PAR NOM", "Saisissez le nom recherché")
Selection.AutoFilter field:=1, Criteria1:="=*", Operator:=xlAnd
End Sub

Bêtise de ma part ou mon code est il trop simple ?
A l’aide plz
Merci d’avance