Sub masquer_lignes _ si_cellules_nulles()
Dim ligne As Integer
For ligne = 5 To 245
If Cells(ligne, 4) = "0" Then
Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next
For ligne = 5 To 245
If Cells(ligne, 4) > "0" Then
Rows(ligne & ":" & ligne).EntireRow.Hidden = False
End If
Next
End Sub