Mais je n'ai pas trouvé les deux premières
Désolé, je suis plus que débutant
TSB.ListRows.Add 'ajoute une ligne à TSB
LI = TSB.ListRows.Count 'définit la ligne LI (dernière ligne de TSB)
par
Sheets("Base").ListObjects(1).ListRows.Add
LI = Sheets("Base").ListObjects(1).ListRows.Count
Comment çà vous n'avez pas trouvé les deux premières ???
Dans le code vous avez ceci
TSB.ListRows.Add 'ajoute une ligne à TSB
LI = TSB.ListRows.Count 'définit la ligne LI (dernière ligne de TSB)
vous les supprimez et vous mettez ceci à la place. je ne vois pas ce qu'il y a de compliqué
Sheets("Base").ListObjects(1).ListRows.Add
LI = Sheets("Base").ListObjects(1).ListRows.Count
EDIT : ok avec la vue (https://forum.excel-pratique.com/s/goto/1107936), je viens de comprendre ce que vous avez fait
Vous supprimez les deux lignes Msgbox
1. Vous remplacez
Worksheets("Base").ListObjects("Tableau3").listrows.add
par
Sheets("Base").ListObjects(1).ListRows.Add
2. ensuite vous remplacez
LI = TSB.ListRows.Count 'définit la ligne LI (dernière ligne de TSB)
par
LI = Sheets("Base").ListObjects(1).ListRows.Count