Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E37")) Is Nothing Then
Application.ScreenUpdating = False
Rows("38:49").Hidden = True 'masque tout
If Val(Range("E37")) Then Rows(38).Resize(Val(Range("E37"))).Hidden = False
End If
End Sub