Imprimer des feuilles excel sauf certaines

Sub Macro1()
    'aide excel: adapter l'imprimante
    Sheets(Array("Feuil1", "Feuil3", "Feuil4")).Select
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"
End Sub

Sub Print_Selected_Sheets()

    ' Remove Multiple Selections
    ActiveWorkbook.Sheets(1).Select

    ' Select Multiple Sheets - Optional False is to extend the current selection to include
    'any previously selected objectsand the specified object
    ActiveWorkbook.Sheets(1).Select False
    ActiveWorkbook.Sheets(2).Select True
    ActiveWorkbook.Sheets(4).Select False

    ' -----------------------------------------------------------
    ' Coded by Shasur for http://vbadud.blogspot.com
    ' -----------------------------------------------------------
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

    ' Remove Multiple Selections
    ActiveWorkbook.Sheets(1).Select

End Sub

Sub Imprime() 
Dim Feuille As Worksheet, FeuillesNonImprimees(), ImpOk 

FeuillesNonImprimees = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5") 'A ADAPTER 

For Each Feuille In ThisWorkbook.Worksheets 
    ImpOk = Application.Match(Feuille.Name, FeuillesNonImprimees, 0) 
    If IsError(ImpOk) Then 
        With Feuille 
            .PrintOut 
        End With 
    End If 
Next Feuille 
End Sub