Suppression de ligne dans un tableau BD

Bonjour

J'aimerais savoir comment supprimer toutes les lignes dans un tableau de ma BD sauf la 1ere ligne.

Ex Titre A1_C1 supprimer toutes les lignes après A2 enVba SVP.

Merci

Thierry

Bonjour

Oui avec ce genre de code

Sub test()
With ActiveSheet
    .Range("A2:C" & .Range("A" & .Rows.Count).End(xlUp).Row).Delete
End With
End Sub

Ce code suppose que la colonne A est toujours remplie

Si ok et terminé, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Cordialement

Bonjour,

Si tes données sont sous forme de tableau, essaie ceci :

Public Sub ClearTable()
    With ActiveSheet.ListObjects(1)
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With
End Sub

Bonjour

Merci à Dan et Jean Eric c'est exactement ce que je voulais.

Merci

A+

Thierry