Plusieurs conditions sur IF THEN

Bonjour à tous,

je souhaiterais utiliser un "if ... then" pour traiter des opérations sur certaines sheets de mon workbook (toutes sauf 2)

pour cela, j'écris le code:

Code:

---

1 2 3 4

Dim ws As Worksheet If ws.name <> "Menu" Or "Divers" Then ... End If

---

afin d'écarter les deux sheets qui ne m'intéressent pas dans mon calcul

Bien évidemment, ce code ne fonctionne pas...
Quelqu'un peut-il me dire comment utiliser correctement le "Or" dans un cas de figure comme celui-ci svp?

Merci à tous!

bonjour fanfan89 essai comme cela

Code:

---

1 2 3 4 5 6 7 8 9

Sub es() Dim Ws As Worksheet Application.ScreenUpdating = False For Each Ws In Worksheets if Ws.Name <> "Menu" And Ws.Name <> "Divers" Then Ws.Activate 'ton code End If: Next Ws End Sub

---

j'ai fais une correction

C'est bon, ca marche!

Merci beaucoup!