Variable avec "CodeName"

Bonjour,

J'ai un code qui permet la mise en page de la feuil4 (CodeName), tout est fonctionnel mais maintenant je dois aussi faire la mise en page de la feuil16 (CodeName).

Je ne voudrait pas changer le code de mise en page en créent un double de code existant et remplacer feuil4 par feuil16, j’essaye ce code mais je n'arrive pas à comprendre pourquoi il ne veut pas le prendre :

Sub test()
Dim ws As Worksheet
Dim s As Excel.Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.CodeName = "Feuil4" Or "Feuil16" Then

'À partir de la le code ne fonctionne plus
Set s = ws.CodeName

'La suite du code sera la mise en page
b = s.Cells(1, 1)

End If
Next ws

End Sub

Je voudrais que "s" prenne la valeur de feuil4 ou de feuil16 ce qui permettrait d'avoir qu'un seul code qui ferait la mise en page pour les deux feuilles

bonsoir,

essaie en utilisant ws.name plutôt quews.codename

Je vient d’essayer et sa na pas marché...

J'ai beaucoup de mal avec le "Set" je ne l'utilise jamais...

Bonsoir,

Et si tu vérifiais "effectivement" les égalités?

Style :

Sub test()
Dim Ws As Worksheet
For Each Ws In Sheets
    If Ws.CodeName = "Feuil4" Or Ws.CodeName = "Feuil16" Then
        b = Ws.Cells(1, 1)
    End If
Next Ws
End Sub

Nota : Il n'est nul besoin de redéfinir l'onglet, Ws suffit largement....

Bonne soirée

Merci beaucoup c'est exactement sa cela fonctionne parfaitement.