Sub Masquer()
'% ==> as integer - '& ==> as long - '@ ==> as currency
'! ==> as single - '# ==> as double - '$ ==> as string
Dim Derlig&
Derlig = ActiveSheet.UsedRange.Rows.Count
For i = 1 To Derlig
'If Cells(i, 1) <> [C1].Value Then Rows(i).Hidden = True
If IsNumeric(Cells(i, 1)) And Not IsEmpty(Cells(i, 1)) And Cells(i, 1) <> [C1].Value Then Rows(i).Hidden = True
Next i
End Sub