Impression des feuilles suivant case dans tableau renseignée

Sub Impression_Inventaires()
    With Worksheets("Sommaire")
        Nb_Imp = Application.CountIf(.Range("D9:D16"), "X")
        If Nb_Imp > 0 Then
            MsgBox Nb_Imp & " feuille(s) a imprimmer"
            For n = 9 To 16
                If UCase(.Cells(n, 4)) = "X" Then   'impression selectionnee
                    wsh = .Cells(n + 12, 2) 'nom de feuille a imprimmer
                    Zprt = .Cells(n + 12, 3)    'zone d'impression
                    With Worksheets(wsh)
                        .PageSetup.PrintArea = Zprt
                        .PrintOut   'lance impression
                    End With
                End If
            Next n
        Else
            MsgBox "Pas d'impression programmée!"
        End If
        .Activate
    End With
End Sub

Sub Impression_Inventaires_1()
    Dim TFeuille, TZoneImp, Nb_Imp As Integer, NF As Integer, n As Integer
    
    TFeuille = Array("Zone Process & ligne 4", "Zone APV L1", "Vortex et Pamoma" & _
                                "Zone Cermex L1", "Zone APV L2", "Zone Vortex L2", "Zone Cermex L2" & _
                                "Zone SKA L1&L2")
    TZoneImp = Array("A1:I14", "A1:I10", "A1:I10", "A1:I10", "A1:I10", "A1:I10", "A1:I17", "A1:I17")
    With Worksheets("Sommaire")
        Nb_Imp = Application.CountIf(.Range("D9:D16"), "X")
        If Nb_Imp > 0 Then
            MsgBox Nb_Imp & " feuille(s) a imprimmer"
            NF = 0
            For n = 9 To 16
                If UCase(.Cells(n, 4)) = "X" Then   'impression selectionnee
                    With Worksheets(TFeuille(NF))
                        .PageSetup.PrintArea = TZoneImp(NF) 'Zone d'impression
                        .PrintOut   'lance impression
                    End With
                End If
                NF = NF + 1
            Next n
        Else
            MsgBox "Pas d'impression programmée!"
        End If
        .Activate
    End With
End Sub