For each c in Range("E1:E" & [E65536].end(xlup).Row)
c.entirerow.hidden = Iif (c > 6781, false , true)
next
Activesheet.printout
cells.entirerow.hidden = false
Sub cacher_col()
colonne_ref = 1
debut_listing = 1
fin_listing = Cells(65000, colonne_ref).End(xlUp).Row
For i = debut_listing To fin_listing
If Cells(i, colonne_ref).Value > 6781 Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub