On Error GoTo fin
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 dans la colonne A:A
If Not x Is Nothing Then Range(x.Address).Select
'Place le curseur sur la valeur retrouvée
Exit Sub
fin:
MsgBox ("La valeur recherchée ne se situe pas dans le tableau")
End Sub