Egalement,
Si je peut me permettre je te conseil de remplacer la boucle Do/Loop qui risque de faire une boucle infini par cette ligne de code:
li = Cells(Rows.Count, 1).End(xlUp).Row + 1
Elle simule le raccourci ctrl+ flèche du haut en partant du bas de la page, donc renvoi la dernière ligne non vide du tableau !
A+