Condition apres inputbox

bonsoir

j'ai un petit soucis de mise en forme pour la redaction de mon code qui est le suivant

dim b as string

b = InputBox("quel est la couleur du velo?", "reponse")
    Workbooks("classeurA.xls").Sheets("B.Données").Range("m110").Value = b

   ':::::::::::::::::::::::::
    If b = "bleu" Or "vert" Then
    MsgBox "pas de velo de cette couleur disponible "
    Exit Sub
    Else
' traitement 
  end if
end sub

l'instruction I

f b = "bleu" Or "vert" Then

ne convient pas avec et j'ai le message d' erreur d " incompatibilité de type"

et je ne vois pas comment corriger cela .

en auriez vous un idée ? Merci pour vos réponses

Bonsoir

Il faut

If b = "bleu" Or b = "vert" Then

Merci Banzai ! c'etait tout bete ! merci à toi