Dim usf As Object
Private Sub CommandButton1_Click()
MotPasse = CStr(InputBox("Mot de passe?", "Identification", "****"))
If Len(MotPasse) = 0 Then Exit Sub
SeeMe = Not StrComp("1234", MotPasse, vbTextCompare)
Set usf = uForm(ActiveSheet.Cells(1))
usf.Controls("TextBox1").Visible = SeeMe
usf.Controls("TextBox2").Visible = SeeMe
usf.Show
End Sub