Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows("21:79").EntireRow.Hidden = True
'1er passage
Select Case Range("$AE$20").Value
Case ("VISA CONFORME"): Masque "21:21"
Case ("REFUS DE VISA"): Masque "21:21,79:79"
Case ("RESERVES SUSPENSIVES (Secrétariat)"): Masque "21:26"
Case ("RESERVES SUSPENSIVES (En séance)"): Masque "21:21,27:34"
'2éme passage
Select Case Range("$AE$33").Value
Case ("VISA CONFORME"): Masque "27:34"
Case ("RESERVES SUSPENSIVES (Secrétariat)"): Masque "34:39"
Case ("RESERVES SUSPENSIVES (En séance)"): Masque "40:47"
'3 éme passage
Select Case Range("$AE$46").Value
Case ("VISA CONFORME"): Masque "27:34,40:47"
Case ("RESERVES SUSPENSIVES (Secrétariat)"): Masque "27:34,40:52"
Case ("RESERVES SUSPENSIVES (En séance)"): Masque "27:34,40:47,53:60"
End Select '3émé passage
End Select '2éme passage
Case Else
Rows("21:79").EntireRow.Hidden = True
End Select '1er passage
End Sub
Sub Masque(Plage)
Range(Plage).EntireRow.Hidden = False
End Sub