Suppression 4 dernières lignes

Bonjour à tous,

Comment supprimer les 4 dernières lignes d'un tableau (taille variable) excel par macro?

sachant que la première à supprimer est vide (cf: fichier joint)

merci

oza

Bonjour,

peut-être (vu les explications !)

Sub Supprime4Lignes()
Dim Lg%
    Application.ScreenUpdating = False
    Lg = Range("a65536").End(xlUp).Row

    If Cells(Lg - 3, "a") = "" Then
        Cells(Lg - 3, "a").Resize(4, 1).EntireRow.Delete
    End If
End Sub

Amicalement

Claude

merci Claude!