'sélectionne la feuille sommaire
Sheets('sommaire').Select
'déprotege la feuille active
ActiveSheet.Unprotect
'fait une boucle partant de 4 jusqu'a 19
'le bloc d'instruction entre for ...to et next
'sera répété jusqu'a que x soit = 19
For x = 4 To 19
'sélectionne la cellule à la ligne x et à la colonne 8
Cells(x, 8).Select
'initialise la variable y avec le contenue de la cellule active
y = ActiveCell.Value
'si y >1 alors
If y > 1 Then
'masque la ligne complete de la cellule active
Selection.EntireRow.Hidden = True
'fin de condition
End If
'incrementation de x
Next x
'protege la feuille active
ActiveSheet.Protect
'imprime les feuilles sélectionnées
ActiveWindow.SelectedSheets.PrintOut Copies:=1