Sub Recherche()
Dim nomCherche, myCell As Object
Application.ScreenUpdating = False
On Error GoTo error
nomCherche = InputBox("Terme à rechercher : ")
Cells.Find(What:=nomCherche, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
MsgBox ("La recherche de" & " " & nomCherche & " " & "donne" & vbCrLf & _
"Coordonnées de la cellule : " & ActiveCell.Address & _
vbCrLf & "Nom de la feuille : " & ActiveSheet.Name)
Exit Sub
error:
MsgBox ("Une erreur improbable est survenue")
Exit Sub
End Sub