Private Sub Worksheet_Change(ByVal R As Range)
Set R = Intersect(R, [M5,L23,L79,L135,L191,L247])
If R Is Nothing Then Exit Sub
For Each R In R 'si entrées/effacements multiples
If R.Row = 5 Then
Rows("6:10").Hidden = 1
Rows("14:18").Hidden = 1
Rows("5:" & R + 5).Hidden = 0
Rows("13:" & R + 13).Hidden = 0
[L79] = [L79]: [L135] = [L135]: [L191] = [L191]: [L247] = [L247]
Else
Rows(R.Row + 2 & ":" & R.Row + 51).Hidden = 1
If [M5] > Int((R.Row - 23) / 56) Then Rows(R.Row + 1 & ":" & R + R.Row + 1).Hidden = 0
End If
Next
End Sub