Macro pour plusieurs feuilles

Bonjour, débutant en macro; j'ai réussi la macro suivante qui marche pour une feuille. Ayant d'autres feuilles similaire, j'ai reproduit pour chaque feuille cette macro en modifiant uniquement le nom de la feuille pour que çà marche.
J'aimerais si possible faire une seule macro qui marche pour toutes mes feuilles excepté une feuille de mon fichier.
Merci de me venir en aide.
Ci-joint ma macro (en P.J. également) :
Sub Colorisertableau()
Application.ScreenUpdating = False
Set F1 = Worksheets("202")
With F1
Set Plage = .Range("C3:G20")
End With
For Z = 22 To 31 Step 1
For Each cell In Plage
cell.Select
If cell.Value = Cells(Z, 1).Value Then Selection.Interior.Color = F1.Cells(Z, 1).Interior.Color
If cell.Value = Cells(Z, 1).Value Then Selection.Font.Color = F1.Cells(Z, 1).Font.Color
Next
Next Z
Application.ScreenUpdating = True
End Sub

Bonjour, toutes feuilles sauf "General"

Sub Macrotoutesfeuilles()

Application.ScreenUpdating = False
Dim wSht As Worksheet
For Each wSht In Worksheets
    If wSht.Name <> "General" Then
   Set Plage = .Range("C3:G20")

    For Z = 22 To 31 Step 1

    For Each cell In Plage

    cell.Select
    If cell.Value = Cells(Z, 1).Value Then Selection.Interior.Color = F1.Cells(Z, 1).Interior.Color
    If cell.Value = Cells(Z, 1).Value Then Selection.Font.Color = F1.Cells(Z, 1).Font.Color

    Next
    Next Z

End If
Next
    Application.ScreenUpdating = True
End Sub

Bonjour

Une variante évitant de parcourir toutes les couleurs quand une a été trouvée

On peut combiner les 2 approches avec un unique bouton colorant tous les onglets

Sub Colorisertableau()

    Application.ScreenUpdating = False

    Set F1 = ActiveSheet

    With F1
        If .Name <> "General" Then Set Plage = .Range("C3:G20") Else Set Plage = .Range("B3:AT20")

        For Each Cellule In Plage
            For Z = 22 To 31
                If Cellule.Value = Cells(Z, 1).Value Then
                    Cellule.Interior.Color = .Cells(Z, 1).Interior.Color
                    Cellule.Font.Color = .Cells(Z, 1).Font.Color
                    Exit For
                End If
            Next Z

        Next Cellule

    End With

End Sub