Beurk.
Voilà qui est plus joli :
Rows(e).Delete Shift:=xlUp
Et surtout plus efficace !
Il n'y a pas de façon de faire plus rapide pour supprimer une ligne, mais en supprimant l'étape INUTILE de sélection, tu économises beaucoup de temps : La sélection, c'est du scroll pour aller à la bonne cellule, et donc du rafraîchissement pour réafficher toutes les cellules nouvellement affichées. S'il y a des événements sur la sélection, c'est du code qui est exécuté, etc.
NE PAS FAIRE DE Select/Selection NI DE Activate/Active
Machin INUTILES.