Bonsoir à toutes et tous
Il y a deux petites choses :
Tout d'abord, dans la ligne :
Set sh2 = Worksheets("Feuil2") 'a = 20 a = 18 + ActiveCell.Row
il faut supprimer :
a = 18 + ActiveCell.Row
et copier cette ligne dessous, comme ceci :
Set sh2 = Worksheets("Feuil2")
a = 18 + ActiveCell.Row
Puis, inutile de créer un bouton avec un code, il suffit de cliquer sur la cellule (exemple) F2 et la colonne "T2 à Tx" se remplira, et ainsi de suite : "F3" pour "U2 à Ux"...... Cela est pour les lignes "Ax à Ex" futures.
Si, tu as déjà saisis des nombres dans les lignes 1, 2, 3, ...,
soit c'est peu de lignes et tu parcours une par une les celulles en colonnes "F"
sinon créer une macro qui le fera à ta place jusqu'à la dernière ligne "Ax à Fx" occupée.
J'espère avoir été plus clair, dis-nous
Eric