XL 2019 Supprimer les dernières lignes d'une feuille

Phil69970 à dit:

Bonjour @netparty

En clair dans ton fichier tu veux supprimer de la ligne 48 à la ligne 79 ?

@Phil69970

Cliquez pour agrandir...

Phil69970 à dit:

@netparty

Donc les lignes à supprimer sont de 80 à 112 ?

Un exemple serait le bienvenu avec quelle ligne à supprimer....

@Phil69970

Cliquez pour agrandir...

Sub Supprimer_Feuille()

    '   *** Recherche derniere cellule vide en A et remonte de 1
    Set ch1 = Range("A" & Rows.Count).End(xlUp).Offset(-1, 0)
    '   *** Plage de selection du tableau
    Set ch2 = Range("A" & Rows.Count).End(xlUp).Offset(-31, 16)
    '   *** Selectionne la plage
    Range(ch1.Cells(1, 1).Offset(1, 0), ch2.Cells(1, ch2.Columns.Count).Offset(-1, 0)).EntireRow.Select
    '   *** Supprime la selection
    Selection.Delete Shift:=xlUp
    

End Sub