Sub RechercheValeur()
Set MyRange = Range("MaValeurCherchée") 'Nom de ma case de recherche
Set x = Sheets(1).Range("A:A").Find(MyRange.Value, , xlValues, xlWhole, , , False) 'Recherche colonne A:A
If Not x Is Nothing Then Range(x.Address).Select 'Place le curseur sur la valeur retrouvée
If x Is Nothing Then MsgBox "La valeur recherchée ne se situe pas dans le tableau"
MyRange.Select
End Sub