Salut Petruchio, le forum,
admettant que :
Toto =sheets("feuille1").cells(ligne,colonneA)
Toto2 =sheets("feuille1").cells(ligne,colonneH)
boucle....
si <condition> alors
with sheets("feuille1")
range(.cells(ligne,1),.cells(ligne,8)).select
end with
@+