Option Explicit
Sub test()
Dim id_user As String, demandeur As String, x As Range
id_user = InputBox("Merci de vous identifier avec votre code User " & Chr(10) & "(Exemple : mxc3105)", _
"IDENTIFICATION DE LA JOUEUSE")
Set x = Range("Users").Find(id_user, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then demandeur = x.Offset(0, 1) & Chr(32) & x.Offset(0, 2)
End Sub