Voilà déjà pour la recherche et le positionnement sur la première cellule trouvée :
Dim strSearch As String
strSearch = InputBox('chercher')
If strSearch = '' Then Exit Sub
'va chercher depuis la position actuelle
Cells.Find(What:=strSearch, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Pour faire un format on peux l'ajouter, par contre pour l'enlever automatiquement après correction, il faudrait paramétrer une fonction de type onentry qui remettrait le format starndard.