VLOOKUP sur un string

Bonjour
j'ai une feuille excel dans laquelle il y a en A1: "rouge", A2: "bleu" en A3: "vert" A4 "jaune".
Quand je fais:

Code:

---

1 2 3 4 5 6

Sub f() Dim o As String o = Range("A1") r = Range(Range("A1"), Range("A4")) ff = WorksheetFunction.VLookup(o, r, 0, 2) End Sub

---

Il me ranvoie une erreur. Meme chose avec Match. Je n'arrive pas a voir pourquoi y a une erreur avec un code aussi simple.

Bonsoir,

Vous êtes sûr que ce n'est pas :

Code:

---

ff = WorksheetFunction.VLookup(o, r, 1, 2)

---