Print classeur sauf quelques feuilles

If IsNumeric(feuille.Name) = False Then

If Not feuille.Name Like "*#*" Then

Option Explicit

Sub Test()
Dim Nb_Feuilles As Byte, i As Byte, j As Byte
Dim Le_Nom As String
Dim C(1 To 10) As String
Dim X As Byte

Nb_Feuilles = Sheets.Count

C(1) = "1"
C(2) = "2"
C(3) = "3"
C(4) = "4"
C(5) = "5"
C(6) = "6"
C(7) = "7"
C(8) = "8"
C(9) = "9"
C(10) = "0"

For i = 1 To Nb_Feuilles
    Le_Nom = Sheets(i).Name
    'On va commencer par vérifier si le nom contient un chiffre
    For j = 1 To 10
        X = InStr(Le_Nom, C(j))
        'Si oui, alors on poursuit au prochain onglet
        If X <> 0 Then GoTo Poursuivre
    Next j
    'Si le nom de la feuille ne contient pas de chiffre, alors on va vérifier s'il
    's'agit de l'onglet "Récapitulatif".
    If Le_Nom <> "Récapitulatif" Then
        'Si ce n'est pas le cas, alors on print
        With Sheets(Le_Nom)
            .Select
            Call Fastzonetoprint
            .PrintPreview
        End With
    End If
Poursuivre:
Next i

Erase C
End Sub

Sub Fastzonetoprint()
Dim Mzone$
Mzone = "$A$1:$N$47"
With ActiveSheet
    .ResetAllPageBreaks
    .PageSetup.PrintArea = Mzone
End With

Sub Tri_Print()

Dim feuille As Worksheet
For Each feuille In ThisWorkbook.Worksheets
If feuille.Name <> "Récapitulatif" Then
If Not feuille.Name Like "*#*" Then

Dim Mzone$
Mzone = "$A$1:$K$36"
With ActiveSheet
    .ResetAllPageBreaks
    .PageSetup.PrintArea = Mzone
End With

        feuille.PrintPreview
    End If
    End If
Next
End Sub