Hello Isabelle,

Big Thanks to you.

Yves


hello Yves,

Private Sub UserForm_Initialize()
Dim sUserName As String, x As Integer
sUserName = Environ("username")
With Sheets("Users")
If Not IsError(Application.Match(sUserName, .Range("A:A"), 0)) Then
x = Application.Match(sUserName, .Range("A:A"), 0)
TextBox1 = .Range("A" & x)
TextBox2 = .Range("B" & x)
TextBox3 = .Range("C" & x)
End If
End With
End Sub