Pour info, il est possible d'ouvrir directement la recherche rapide et de lancer automatiquement la recherche avec le shell :
Dim WshShell As Variant
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "valeur à rechercher"
WshShell.SendKeys "{ENTER}"
ou encore avec la boite Rechercher/Remplacer :
Dim WshShell As Variant
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^r"
WshShell.SendKeys "valeur à rechercher"
WshShell.SendKeys "{ENTER}"
Noël arrive plutôt que d'habitude cette année

. En tout cas, cela fonctionne dans le contexte de mon appli.
Joyeux nöel à tous
ngi