XL 2013 Suppression de quelques lignes de tableau VBA

[loBirane]

Sub Suppr()
    Dim cel As Range
    Sheets("Liaisons HT").Select
    For Each cel In Range("D14:D" & Range("D" & Application.Rows.Count).End(xlUp).Row)
            cel.EntireRow.Delete
    Next cel
End Sub

Bonjour cher forum,
Je voudrais votre aide s'il vous plait.
Je souhaite, dans le fichier joint, supprimer les ligne du tableau dans la feuille liaisons HT (sauf la première ligne).
J'ai essayé le code i-dessous mais il me le fait ligne après ligne alors que je veux la suppression en une seule exécution.


Si le tableau contient plusieurs lignes, comment pourrais sélectionner toutes lignes sauf la première et ensuite les supprimer toute? L'idée étant de garder une ligne du tableau après suppression.

Merci.

 

[Robert]

Bonjour Lobirane, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim DL As Integer
DL = Range("Tableau5").Rows.Count
Range("Tableau5").Rows(2 & ":" & DL).Delete
End Sub

 

[Hasco]

Bonjour,

Avec:

Sub Suppr()
    Sheets("Liaisons HT").ListObjects("tableau5").DataBodyRange.Delete
End Sub

Bonne journée

P.S. Hello @Robert

 

[loBirane]

Bonjour Lobirane, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim DL As Integer
DL = Range("Tableau5").Rows.Count
Range("Tableau5").Rows(2 & ":" & DL).Delete
End Sub

Merci Robert.
ça marche bien.

 

[loBirane]

Bonjour,

Avec:

Sub Suppr()
    Sheets("Liaisons HT").ListObjects("tableau5").DataBodyRange.Delete
End Sub

Bonne journée

P.S. Hello @Robert

C'est super. Ca marche tout comme celui de Robert.
Bonne journée à tous.