Voici un chapeau de bon exemple que vous la NC modifient pour vos besoins.
http://www.ozgrid.com/VBA/find-method.htm