Optimisation de code

Bonjour à tous, bonjour le fil et le forum.
Ce nouveau petit poste pour vous demander s'il est possible d'optimiser ces fragments de code qui font ramer certains collaborateurs au boulot:
Il s'agit ici de n'imprimer que les cellules de la colonne J dont le contenu est inférieur à 0.

Sub imprimerPlageCellules2()
Dim n As Integer
Application.ScreenUpdating = False
For n = 2 To 560
If Cells(n, 7) > 0 Then
Rows(n).Hidden = True
End If
Next n
Sheets("feuil1").Range("A3:L560").PrintOut
For n = 2 To 560
Rows(n).Hidden = False
Next n
Application.ScreenUpdating = True

End Sub

Ca fait ramer les vieux coucous...

Merci d'avance pour vos solutions,
Ch'K
lien vers le fichier: http://cjoint.com/?hhqeEy5qUn