Format cellule TEXTE et Macro Vlookup

Bonjour,

Dans le code suivant

Code:

---

1 2 3

Dim CP As Variant CP = Cells(6, 2) Range("E15") = Application.WorksheetFunction.VLookup(CP, Sheets("LISTE54").Range("LISTECP54"), 2, False)

---

Tout fonctionne, CP étant un Code postal situé en B6.

Je rencontre un problème à partir du moment ou j’ai un code postal type « 04000 » !
La cellule prend en compte 4000 et de ce fait la recherche échoue.

J’ai dans un premier temps essayer de passer le format cellule en Spécial : Code postal, puis spécial « 00000 » sans succès. La seule possibilité que j’ai trouvé pour que la valeur 04000 soit prise en compte est de passer la cellue en format Texte.

Et la c’est le drame, la macro ne fonctionne plus.

SI vous avez une idée ou une direction à me conseiller, je suis preneur.

Cordialement.

Bonjour,
essayes comme ça :

Code:

---

Range("E15") = Application.WorksheetFunction.VLookup(Format(CP, "00000"), Sheets("LISTE54").Range("LISTECP54"), 2, False)

---