Private Sub UserForm_Initialize()
Sheets("Feuil1").Select
X = ActiveCell.Row '158
Y = ActiveCell.Column ' 73
If X = 158 And Y = 73 And Cells(X, Y).Value = "" Or Cells(X, Y).Value <> "" Then
MsgBox " Cellule BU158 selectionnée "
TextBox1.Visible = False
Else
TextBox1.Visible = True
End If
End Sub