Comment supprimer des lignes vides à la fin de mon fichier Excel

Bonjour, J'utilise Excel 2010 avec Windows 10. J'ai un gros fichier Excel que j'ai monté et qui est mon outil de base de travail. Cependant, il me créé toujours des lignes vides à la fin de mon fichier et il m'est impossible de les supprimer. J'avais trouvé une macro qui fonctionnait super bien et ça avait résolu tous mes problèmes.

Par contre, depuis 2 mois, ça ne fonctionne malheureusement plus car ça m'indique erreur d'exécution 438. Je n'ai absolument rien changé de mon fichier ni aucune version d'aucun programme dans mon ordinateur. La seule chose que je peux voir, c'est une mise à jour qui a pu faire planter ma macro. Je ne suis pas très habile non plus dans les macros. C'est en fouillant sur internet que je l'avais trouvée.

Sub Purger()
Dim last As Variant
Dim ligne_libre As Variant
last = Range("A" & Rows.Count).End(xlUp).Row
MsgBox "La derniere ligne est la " & last & "ième" 'juste pour se contrôler ...
Rows(last + 1 & ":" & Rows.Counts).Select
Selection.Delete Shift:=xlUp

End Sub


Est-ce que quelqu'un peut m'aider à trouver le problème S.V.P. Il semblerait que ce soit dans la ligne rows qu'il y a un problème.