répéter macro à toutes les feuilles sauf une !

Sub test()

 For Each sh In Sheets
 If sh.Name = "TEST" Then
 
Else

 Cells.Select
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Range("G33").Select
 Application.CutCopyMode = False
 Range("AP4:BA28").Select
 Selection.Copy
 Range("A4").Select
 Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
 SkipBlanks:=False, Transpose:=False
 Range("A1:B2").Select
 Selection.Font.Bold = True
 Range("A16:B17").Select
 Selection.Font.Bold = True
 Range("A1").Select
 ActiveCell.FormulaR1C1 = "St"
 Range("A16").Select
 ActiveCell.FormulaR1C1 = "St"
 Range("A13").Select
 ActiveCell.FormulaR1C1 = "MOYEN"
 Range("A28").Select
 ActiveCell.FormulaR1C1 = "MOYEN"
 Call Moyen
End If
 Next sh

 End Sub

Option Explicit
Sub test()
Dim sh As Worksheet
For Each sh In Sheets
    If sh.Name <> "TEST" Then
        With sh.Cells
            .Copy
            .PasteSpecial Paste:=xlPasteValues
        End With
    End If
Next sh
End Sub