Macro qui purge des lignes vides ne fonctionne plus avec mise à jour Windows

Bonjour, j'avais une macro qui fonctionnait à la perfection mais avec des mises à jour Windows, elle ne fonctionnait plus et dépendant des mises à jour, des fois ça se remettait à bien fonctionner sans même la modifier. Cependant, depuis pas mal longtemps, elle ne fonctionne plus du tout et ça me cause un gros problème puisque mon fichier est rendu vraiment trop lourd donc très lent à chaque commande et je ne peux pas désactiver les calculs non plus car j'en ai besoin à chaque fois que ça bouge.

Voici ma macro :

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.Count).Select
Selection.Delete Shift:=xlUp

End Sub

Merci beaucoup de votre aide ! Sylmarco