Problème pour maquer lignes

Bonjour,

je sollicite votre aide pour comprendre pourquoi la macro suivante, qui marche très bien ( environ 5 secondes pour un test de 2500 lignes ),
devient extrêmement lente (plusieurs minutes) lorsque je viens par exemple de redefinir la zone d'impression.

Merci de me donner votre avis si vous savez d'où cela pourrait venir.




Dim j As Integer

j = 6

Application.ScreenUpdating = False

For j = 6 To 2500

If (Cells(j, 2).Value = "") Then


Rows(j).Select
Selection.EntireRow.Hidden = True


End If

Next

End Sub