Bonjour, Sophie
Le plus simple c'est de remplaces les références de cellule type Range("A1").select, dans le code par un nom de cellule.
Dans la barre d'outils formule, à l'extrème gauche, en général il y a la référence de la cellule.
Tu vas modifier la référence en lui déclarant un nom.
Si tu insères une ligne (complète), ne prend qu'une cellule, si par contre tu insères une plage de cellule, alors sélectionne une plage de cellule
- sélectionne la cellule ou la plage, à l'endroit où tu insères les lignes dans le 1er tableau, va dans le coin gauche de la barre de formule et tape InsCellTab1
- sélectionne la cellule ou la plage, à l'endroit où tu insères les lignes dans le 2ème tableau, va dans le coin gauche de la barre de formule et tape InsCellTab2
- sélectionne la cellule ou la plage, à l'endroit où tu insères les lignes dans le 3ème tableau, va dans le coin gauche de la barre de formule et tape InsCellTab3
Maintenant il faut modifier le code VBA. Cherche dans le code les anciennes références des cellules et remplace par les nouveaux noms.
Range("A1").select -> Range(InsCellTab1).select
Essaye et tient nous au courant.
Bonne fin de journée
@+Jean-Marie