Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tabl As Variant, I As Long
Tabl = Array(1, 9, 51, 93, 135, 177, 219, 261, 303, 345, 367)
If Target.Address = "$C$3" Then
Rows("9:429").Hidden = True
If IsNumeric(Target) Then
If Target > 0 Then
For I = 1 To Target
Rows(Tabl(I)).Hidden = False
Next I
End If
End If
ElseIf Target.Column = 24 And IsNumeric(Application.Match(Target.Row, Tabl, 0)) Then
Rows(Target.Row + 1 & ":" & Target.Row + 41).Hidden = True
Rows(Target.Row + 1 & ":" & Target.Row + Target + 1).Hidden = False
End If
End Sub