Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim tablo, tablo1, Lig&
tablo = Array(12, 20, 28, 36, 44, 52, 60, 68, 76, 84, 93, 101, 109, 117, 125, 133, 141, 149, 157, 165, 174, 182, 190, _
198, 206, 214, 222, 230, 238, 246, 255, 263, 271, 279, 287, 295, 303, 311, 319, 327, 336, 344, 352, 360, 368, 376, 384, _
392, 400, 408, 417, 425, 433, 441, 449, 457, 465, 473, 481, 489, 498, 506, 514, 522, 530, 538, 546, 554, 562, 570)
tablo1 = Array(6, 14, 22, 30, 38, 46, 54, 62, 70, 78, 87, 95, 103, 111, 119, 127, 135, 143, 151, 159, 168, 176, 184, _
192, 200, 208, 216, 224, 232, 240, 249, 257, 265, 273, 281, 289, 297, 305, 313, 321, 330, 338, 346, 354, 362, 370, 378, _
386, 394, 402, 411, 419, 427, 435, 443, 451, 459, 467, 475, 483, 492, 500, 508, 516, 524, 532, 540, 548, 556, 564)
ActiveSheet.Unprotect
Lig = Target.Row
Application.EnableEvents = False
If Not IsError(Application.Match(Lig, tablo, 0)) = "Vrai" Then Rows(Lig - 5 & ":" & Lig).EntireRow.Hidden = True 'Masque
If Not IsError(Application.Match(Lig, tablo1, 0)) = "Vrai" Then Rows(Lig + 1 & ":" & Lig + 6).EntireRow.Hidden = False 'Visible
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A4").Select
Application.EnableEvents = True
End Sub