Bonjour,
tu n'as qu'à ajouter des paramêtre à la ligne que tu avais déjà:
Application.Dialogs(xlDialogFormulaFind).Show Texte, Regarder, CelluleEntière, Sens, ?, RespecterLaCase
donc si tu veux rechercher dans les valeurs:
Application.Dialogs(xlDialogFormulaFind).Show Arg2:=2
ou bien
Application.Dialogs(xlDialogFormulaFind).Show ,2