Macro pour ouvrir la fenêtre de recherche

Bonjour à tous,

Je n'arrive pas à faire une macro pour ouvrir la fenêtre de recherche

Lorsque je l'a fais, cela m'affiche :

Sub Rechercher()
    UserForm1.Show
End Sub

et avec le raccourci clavier, cela ne fonctionne pa snon plus:

Sub Fen_Recherche()
'
' Fen_Recherche Macro
' CTRL+F
'
' Touche de raccourci du clavier: Ctrl+Shift+F
'
End Sub

Je sens le problème récurrent, et j'ai cherché dans les archives, mais c'est si fournit qu'il est difficile de trouver aisément ce sujet précis.

Il serait utile que je mette un GROS bouton avec une tel macro, car tout le monde ne trouve pas forcément cette fenêtre et ça commence à me

Si vous pouvez m'aider j'en serais tout heureux

Cordialement

Bonjour

Je suppose qu'il s'agit de chercher dans un fichier ?

Essaie comme ceci :

Sub Recherche()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

Cordialement

Aaaah mais c'est super ça ! Mille merci pour ton aide éffiiente et super appréciée. ça marche du tonnerre.

cordialement

Serji