[Résolu] Sélectionner dernière ligne insérée

Sub Ligne_inserer()
ligne = ActiveCell.Row
Dim n, L As Range
    Set L = ActiveCell.EntireRow
    Dim u As String
    
  
    
        n = InputBox("Combien de ligne voulez-vous insérer ?", "Choix", 1)    'nombre de lignes à insérer
        
        If Not IsNumeric(n) Then Exit Sub
         
        Rows("14:1058").Select
        

        ActiveSheet.Outline.ShowLevels RowLevels:=2
        
        Rows("1:1").Select
       

        L(2).Resize(n).Insert
       
        Rows(1).Copy L(2).Resize(n)
        L(2).Resize(n).RowHeight = L(n - 1).RowHeight
        

        Rows(ligne + 1).Select
        
        
   
    

End Sub

Rows("1:1").Select

Rows(L.Row + n).Select 'on se positionne sur la dernière ligne copiée

  L(2).Resize(n).RowHeight = L(n - 1).RowHeight

Rows("14:1058").Select                     
ActiveSheet.Outline.ShowLevels RowLevels:=2