Bonjour,
J'ai adapté le module1 pour que le programme calcule la ligne de la dernière référence de la feuille inventaire. Comme cela on a plus besoin de changer dans le programme. Mais soit dit en passant vous n'aviez pas encore évoqué le nombre de références qu'il y aurait dans cette feuille.
Changements fait en rouge
Sheets("Inventaire").Activate
'Recherche de la dernière ligne
derLigneInvent = Range("B" & Rows.Count).End(xlUp).Row
'Recherche de la ligne à modifier
For Each cel In Range("B3:B" & derLigneInvent)