oups petite erreur de variable
Sub masquer_ligne()
Dim valeur As Range, c As Double
For c = 1 To Range("A65535").End(xlUp).Row
'Un des caracteres dans la ligne
'Pour les 4 caracteres dans la ligne remplacer les Or pas And
If Cells(c, 1) = "2" Or Cells(c, 2) = "N" _
Or Cells(c, 3) = "1" Or Cells(c, 7) = "N" Then
Rows(c & ":" & c).EntireRow.Hidden = True
End If
Next c
End Sub