Bonjour @Phil69970,
Merci pour ta réponse!
Alors ta proposition réglait le problème du curseur, en revanche il n'y a que la cellule (i,3) qui était mise en couleur. En rectifiant pour prendre en compte toute la ligne ça fonctionne super!!
fin = Sheets("Feuil1").Range("A65000").End(xlUp).Row...