Salut,
Pas sûr de tout comprendre mais si Find ne trouve rien tu ne risques pas à trouver qqch d'autre...
sinon peut être
Dim C As Range, Adres1$
with selection
set c = .Find("LAValeurRecherchée")
if not c is nothing then
adres1=c.address
Do 'là tu fais l'action que tu veux
...
loop while not C is nothing and C.address <> Adres1
end if
end with
A+++