Option Compare Text 'la casse est ignorée
Function RechercheCle(R As Range, txt$)
Dim tablo, mini%, i&, pos%
tablo = R.Resize(, 2) 'matrice, plus rapide
mini = 32767
For i = 1 To UBound(tablo)
pos = InStr(txt, tablo(i, 1))
If pos > 0 And pos < mini Then
mini = pos
RechercheCle = tablo(i, 2) '1ère occurrence dans le texte
End If
Next
End Function