Supprimer ligne d'un tableau

Bonjour,

Existe t'il une macro permettant de supprimer toutes les lignes du bas

tableau , si la colonne A ne contient plus de valeur

Voir mon exemple joint

Merci bcp

Bonjour,

Un test si tes lignes sont vides de façon continue sur la colonne A :

Sub SUPPR()
Dim DER_L_B%, DER_L_A%
With Worksheets("Database")
    DER_L_B = Cells(Rows.Count, 2).End(xlUp).Row
    DER_L_A = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Rows(DER_L_A & ":" & DER_L_B).EntireRow.Delete
End With
End Sub

Cdlt,