Function Transco(Cellule As String, Table As Range) As String
Dim T(0), MC() As String, i As Long
T(0) = Cellule
For i = 1 To Table.Rows.Count
MC = Filter(T, Table(i, 1).Value2, True, vbTextCompare)
If UBound(MC) = 0 Then Transco = Table(i, 2).Value2: Exit Function
Next i
End Function