Bonjour Torre
Un code qui ouvre la fonction "Recherche", mai n'a rien à chercher
un fichier exemple même anonyme serait utile
Amicalement
Pierrot
'
Sub Rechercher()
ActiveCell.Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Select
End Sub