XL 2013 Insérer une ligne + Supprimer toutes les lignes vides après la dernière

Jacky67 à dit:

Bonjour,
Par certain d'avoir compris ce qu'il faut inserer
Une piste avec une feuille modèle avec 2 plages nommées..
**Code et PJ modifiés

VB:

Sub Insérer_lignes()
    Dim OS As Worksheet    'déclare la variable OS (Onglet Source)
    Dim DL As Integer    'déclare la variable DL (Derni?re Ligne)
    Dim I As Integer    'déclare la variable I (Incr?ment)
    Set OS = Worksheets("Sheet1")    'définit l'onglet OS
    If Application.CountA(OS.[1:1]) = 11 Then
        Application.ScreenUpdating = False
        DL = OS.Cells(Application.Rows.Count, "A").End(xlUp).Row    'définit la dernière ligne éditée DL de la colonne A de l'onglet DL
        OS.Rows(DL).Delete: DL = DL - 1
        [titre1].Copy
        OS.[a1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme
        OS.[a1].CurrentRegion.PasteSpecial Paste:=xlPasteColumnWidths
        For I = DL To 2 Step -1  'boucle sur toutes les lignes I du tableau des valeurs (en partant de la derniere)
            If Left(Cells(I, 1), 16) = "Délai confirmé :" Then
                [titre2].Copy
                OS.Cells(I, 1).EntireRow.Insert
            End If
        Next
        OS.[a1].CurrentRegion.Borders.Weight = xlThin
    End If
End Sub

Cliquez pour agrandir...