Salut à vous tous,
Je dirai pareil pour la première partie de ton code Steplof pour ce qui est de la seconde je te propose une recherche
Derligne = Columns("A:A").Find(What:="FIN", LookIn:=xlFormulas).Row
for ligne = 1 to Derligne
Next
Ou un direct comme je les aime
for ligne = 1 to Columns("A:A").Find(What:="FIN", LookIn:=xlFormulas).Row
Next
@ bientôt
Valérie