Sub MasquerZeros()
Dim lig As Long, col As Byte
Application.ScreenUpdating = False
For lig = 5 To Range("B65536").End(xlUp).Row
If Cells(lig, 2) <> "" And Cells(lig, 2).Font.FontStyle <> "Italique" Then
Rows(lig).Hidden = True
For col = 4 To 15 'colonnes D à O
If Val(Cells(lig, col)) <> 0 And Columns(col).Hidden = False Then
Rows(lig).Hidden = False
Exit For
End If
Next
End If
Next
End Sub