Sub ligne_stab1()
Dim l As Integer
Sheets("résumé").Activate
Sheets("résumé").Range("STAB1").Select
With ActiveCell
l = .Row
End With
l = l + 3
Rows("l:l").Select 'c'est ici que ca plante
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Bonjour,
je dois insérer une ligne en dessous d'une cellule nommé mais la sélection de la ligne ne fonctionne pas, j'utilise le code suivant:
ps: le numéro de ligne est une variable car d'autres ligne s'ajoutent au dessus (c'est pour cela que j'ai nommé une cellule)