Function rechv(champ As Range, cles As Range, valeurs As Range)
a = cles
b = valeurs
c = champ
Dim d()
Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To cles.Count
mondico.Add a(i, 1), b(i, 1)
Next i
ReDim d(1 To champ.Count)
For i = 1 To champ.Count
d(i) = mondico.Item(c(i, 1))
If d(i) = "" Then d(i) = "DIVERS"
Next i
rechv = Application.Transpose(d)
End Function