Macro pour suppression de lignes

Bonjour forum

Je cherche une macro simple et efficace pour supprimer un nombre de ligne variable (10 lignes ou 20 lignes ou + ou -) mais a chaque fois garder les trois dernières lignes pour les replacer en haut de la feuille en A3.

Dans le fichier exemple j'ai 21 lignes a supprimer et je voudrais garder que les 3 dernières et les remettre en A3 - M3.

Merci de votre aide a tous.

bonjour,

une proposition

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    Rows("3:" & dl - 3).Delete shift:=xlUp
End Sub

Effectivement merci h2so4 simple et efficace réponse en moins d'une minute

Par contre juste un petit détail avec un with ça bug a dl pour mettre un bouton sur la macro mais pas forcement être sur la feuille 1 quand la macro sera activée.

With Sheets("Feuil1")
 dl = Cells(Rows.Count, 1).End(xlUp).Row
    Rows("3:" & dl - 3).Delete shift:=xlUp

End With

bonjour,

 With sheets("Feuil1")
     dl = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows("3:" & dl - 3).Delete shift:=xlUp
End With

En faite toujours pareil il me dit que "dl" la variable est pas défini

Bonjour,

tu peux la définir

dim dl as long 

ou t'en passer

With Sheets("Feuil1")
    Rows("3:" & Cells(Rows.Count, 1).End(xlUp).Row - 3).Delete shift:=xlUp
End With

Ok merci beaucoup