XL 2013 Simplifier le code IF imbriqué

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