Option Explicit
Option Compare Text 'pour chercher MAJ ou min indifféremment
Sub Recherche()
Dim Cell As Range
Dim SearchedString As String
SearchedString = InputBox('Saisir le mot à chercher')
If SearchedString = '' Then Exit Sub
Set Cell = Sheets('Feuil1').Columns('A:A').Find(SearchedString)
If Not Cell Is Nothing Then
Rows(Cell.Row).Select
Else
MsgBox 'le mot ' & SearchedString & ' inexistant dans la colonne ''A'''
End If
End Sub