Bonjour gringoh, tototiti2008,
Voir même, pour l'exemple donné :
Code:
Sub suppression()
Dim Lignefin_1
Range("A4").Select
Selection.End(xlDown)(2).Select
Lignefin_1 = ActiveCell.Row
Rows(Lignefin_1 & ":33").Delete Shift:=xlUp
Range("A1").Select
End Sub