[VBA] Blocage dans une boucle... sans message d'erreur

Bonjour,

J'effectue une boucle afin de supprimer des lignes qui ne me conviennent pas
dans un classeur. Le classeur en question comporte plus de 13 000 lignes.
Mon souci est que alors que je fais pourtant apparaitre dans la barre de
statut l'avancement du travail l'écran va se figer et Excel va afficher ne
répond pas (il me faut appuyer briévement sur Echap pour revoir la barre de
statut défilée) mon autre souci est que plus la macro avance et plus le
défilement ralentit. Je pense que le souci vient du fait que la variable
Plage contient de plus en plus de donnée (sur les 13000 lignes il y'a
environ 7000 lignes de supprimées)

Voici mon script :
--
Dim i As Long
Dim lMax As Long
Dim cMax As Long
Dim Plage As Range

lMax = ActiveSheet.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
cMax = ActiveSheet.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

Application.ScreenUpdating = False
Application.EnableEvents = False

Set Plage = Nothing
i = 8
Do
Application.StatusBar = i & " / " & lMax
If Cells(i, 2).Value <> 280 Then
If Plage Is Nothing Then
Set Plage = Range(Cells(i, 1), Cells(i, cMax))
Else
Set Plage = Union(Plage, Range(Cells(i, 1), Cells(i, cMax)))
End If
End If
i = i + 1
Loop Until Cells(i, 2).Value = ""
Plage.Delete
Set Plage = Nothing
Application.StatusBar = ""
Application.ScreenUpdating = True
Application.EnableEvents = True
--

Merci d'avance pour votre aide,

Cordialement,

@+
HD