Appliquer un code à certaines feuille

Bonjour,

En VBA, je voudrais savoir comment appliquer un code seulement pour les feuilles "C1" "C2" "C3" "C4" "C5" "C6" "Cond poudres1" et "Re étiquetage"

Un peu dans ce style mais pas vraiment :

Sub test1()

Dim ws As Worksheet

For Each ws In Sheets

If ws.Name <> "Récap" Then 'sauf exemple

ws.Activate

'ton code

Next ws

End Sub

Pourquoi ? Parce que les feuilles différentes de celles du dessus ne sont pas récurrentes ^^

Merci d'avance

bonjour

une proposition

Sub test1()
Dim ws As Worksheet
 For Each ws In Sheets
  select case ws.name
    case  "C1","C2" ,"C3", "C4", "C5", "C6", "Cond poudres1","Re étiquetage"
    ws.Activate
    'ton code
  end select
 Next ws
End Sub

J'essaie ça dès que je peux et je te fais un retour (positif je pense) ^^

c'est parfait je te remercie !