Bonjour,
Une piste à adapter. Ici, toutes les feuilles sont sélectionnées pour l'impression, mets en place un bloc de condition (If Then Else, ou/et Select Case) pour éviter celles que tu ne souhaites pas imprimer :
Sub Test()
Dim I As Integer
'sélectionne toutes les feuilles du classeur...
For I = 1 To Worksheets.Count
Worksheets(I).Select (False)
Next I
'et les imprime
ActiveWindow.SelectedSheets.PrintOut
End Sub