Option Explicit
Sub ImprimeAuto()
Dim L As Byte
Application.ScreenUpdating = False
For L = 3 To 30
Rows(L).Hidden = Application.CountA(Rows(L)) = 0 Or Cells(L, "F").Value <> ""
Next L
ActiveSheet.PrintPreview
' Select Case MsgBox("Voulez-vous imprimer votre document ?", vbYesNo + vbQuestion + vbDefaultButton1, "Confirmation d'Impression de Document")
' Case vbYes
' ActiveSheet.PrintOut
' Case vbNo
' End Select
Rows("3:30").Hidden = False
Application.ScreenUpdating = True
Range("A3").Select
End Sub