'déclaration de la variable i
Dim i As Long
'initialisation de la variable i, par le numéro de la dernière ligne de la colonne A
i = Range("A65536").End(xlUp).Row
' si i est inférieur à 5, on sort de la procédure
If i < 5 Then Exit Sub
'on supprime les lignes de la 1ère à la dernière -4, et les 3 dernières
Range("1:" & i - 4 & "," & i - 2 & ":" & i).EntireRow.Delete