Si tu ne sais pas combien de lignes il y a, et poour éviter de faire dérouler la macro pendant trop longtemps, tu peux changer le 'For i = 100 to 1' par
for i = Range("A65536" ).End(xlUp).Row to 1
(en partant du principe que la colonne est forcément renseignée si la ligne n'est pas vide...)