Methode d'ecriture avec des "ou"

Bonjour

il y a t il une facon plus simple d'ecrire

with activesheet 

if activesheet.range("a1")= "bleu" or activesheet.range("a1")= "rouge" or activesheet.range("a1")= "vert"  or activesheet.range("a1")= "jaune" then 

'traitement 

else 

'traitement 

end if

end with 

ce qui m'embete c'est de réiterer les "ou " surtout s'il doit y en avoir plusieurs , il y a t il donc une méthode plus élégante ?

Merci pour vos réponses

Bonjour à tous,

Bonjour rocket4,

Voici une solution avec Select Case :

With ActiveSheet

    Select Case .Range("a1")
        Case "bleu", "rouge", "vert", "jaune" 
            'traitement
        Case Else
            'traitement
    End Select
End With 

Cordialement.

je te remercie beaucou Papou net , une belle solution en effet plus elegante