Masquer/Afficher zone nommée par liste déroulante

Sub AfficheMasquePMI()
    Rows("7:41").EntireRow.Hidden = False               'Affiche toutes les lignes
    Select Case [L1]
        Case Is = "PMIA"
            Rows("20:30").EntireRow.Hidden = True       'Masque PMIB
            Rows("31:40").EntireRow.Hidden = True       'MASQUE PMIC
        Case Is = "PMIB"
            Rows("7:19").EntireRow.Hidden = True        'Masque PMIA
            Rows("31:40").EntireRow.Hidden = True       'MASQUE PMIC
        Case Is = "PMIC"
            Rows("7:19").EntireRow.Hidden = True        'Masque PMIA
            Rows("20:30").EntireRow.Hidden = True       'MASQUE PMIB
    End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$L$1" Then
        Call AfficheMasquePMI
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("L1")) Is Nothing Then

    With ActiveSheet
        .Range("PMIA").EntireRow.Hidden = True
        .Range("PMIB").EntireRow.Hidden = True
        .Range("PMIC").EntireRow.Hidden = True
        .Range(Target).EntireRow.Hidden = False
    End With
End If
Application.ScreenUpdating = True
End Sub

         .Range("PMI" & Target).EntireRow.Hidden = False

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.ScreenUpdating = False
If Not Intersect(Target, Range("N6")) Is Nothing Then

     With ActiveSheet
        .UsedRange.Offset(9, 0).EntireRow.Hidden = True
        On Error GoTo fin
        .Range("PMI" & Target).EntireRow.Hidden = False
        Application.ScreenUpdating = True
     End With
     Exit Sub
End If
fin:
MsgBox "la plage nommée: PMI" & Target & " n'existe pas"
 Application.ScreenUpdating = True
End Sub