tu peux alors remplacer les :
for A=1 to 10
if cells(a,2)="blabla" then
...
end if
next a
par des :
if not iserror(application.match("blabla",range(cells(1,2),cells(10,2)),0)) then
range(cells(1,2),cells(10,2)).find("what:="blabla",lookat:=xlwhole).row
...
end if
c'est un peu long à écrire mais ca tourne instantanément