Comment faire appel (Call Module) à multiples feuilles de mon choix

Salut,

Supposons j'ai 5 feuilles : sheet1, sheet2, sheet3, sheet4, sheet5

Je veux faire appel (Call Module) uniquement pour les feuilles sheet1, sheet2 et sheet3 et non pas pour sheet4 et sheet5

Voici mon code qu'est ce que je dois modifier svp?

Sub ws()

Dim ws As Worksheet

'Walk through each worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Activate

'Add your code here

Call ApplyIconSetCF

Call Auto_Open

Next ws

End Sub

Bonjour,
Une procédure dans ThisWorkbook.
Cdlt.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "Sheet1", "Sheet2", "Sheet3":
            MsgBox Sh.Name
        Case Else:
    End Select
End Sub