Public Function fctn_DEVICE(machaine) As String
If machaine = "" Then
fctn_DEVICE = tempresult
else
fctn_DEVICE =Application.WorksheetFunction.XLookup("*" & machaine & "*", Range("devices[DEVICE_NAME.2]"), Range("devices[DEVICE_NAME.2]"), "GRRR", 2, 1)
end if
End Function