Re : Insertion ligne automatique (avec formule) sur plusieurs feuilles
Et si vous souhaitez faire la copie ou la suppression d'une ligne pour toutes les feuilles de votre fichier, il suffit de faire :
**************Ajout ligne & formule pour toutes les feuilles***************
Sub ajout_ligne_par_feuilles()
Dim s As Worksheet, ligne&
ligne = InputBox("A quelle position voulez-vous insérer une nouvelle ligne?", "N° Ligne")
For Each s In Worksheets
s.Rows(ligne).Copy
s.Rows(ligne).Insert Shift:=xlDown
End Select
Next s
Application.CutCopyMode = False
End Sub
*********************************************************
**********Suppression ligne & formule pour toutes les feuilles**********
Sub suppression_ligne_par_feuilles()
Dim s As Worksheet, ligne&
ligne = InputBox("Quelle ligne voulez-vous supprimer ?", "N° Ligne")
For Each s In Worksheets
s.Rows(ligne).Delete Shift:=xlUp
End Select
Next s
Application.CutCopyMode = False
End Sub
************************************************************