Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E37")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
SelectNbLoc = Range("E37").Value
x = Left(SelectNbLoc, InStr(SelectNbLoc, " ") - 1)
y = 38 + x
Range("38:49").EntireRow.Hidden = False 'Masque des lignes
If y < 50 Then Range(y & ":49").EntireRow.Hidden = True 'Masque des lignes
Application.ScreenUpdating = True
End Sub