Bonjour,
 
Pour mon projet de fin d'étude je dois réaliser un outils de dimmensionnemnt sur excel avec l'intégration de vba.
 
Sur ma feuille excel j'ai 5 tableaux, placés les uns au dessous des autres (escpacé de quelques lignes).
 
A la fin de chaque tableau j'ai créé un bouton qui permet de rajouter des lignes avec la meme mise en forme que la ligne du dessus,  
 
voici un code que j'ai trouvé et qui fonctionne:
 
 
'faire une nouvelle ligne
ActiveCell.EntireRow.Insert Shift:=xlDown
'copier la ligne du dessus
ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1)
On Error Resume Next
'effacer le contenu de la nouvelle ligne mais garder la forme
ActiveCell.EntireRow.ClearContents
 
Le seul soucis est que cette "insertion de ligne " se fait sur la cellule active (ActiveCell)
 
Je veux que l'insertion se fasse sur une ligne définie du genre à la ligne 17,21 par exemple.
 
 
 
Merci  
   
 

cells(17,21).select

merci!