Option Compare Text 'permet de s'affranchir des majuscules/minuscules
Private Sub CommandButton1_Click()
Dim c As Range
With Sheets('ADMIN')
For Each c In .Range('a1:a' & .Range('a65536').End(xlUp).Row) ' adapter
If c = Txb_ID_Util Then
UserForm1.ComboBox1.AddItem c.Offset(0, 3)
End If
Next c
End With
Unload UserForm2
UserForm1.Show
End Sub