Private Sub Worksheet_Change(ByVal Target As Range)
'si c'est la cellule "A1" charge la Form, rempli
'le TextBox et ensuite l'affiche
If Target.Address(0, 0) = "A1" Then
Load UserForm1
UserForm1.TextBox1.Text = Target.Value
End If
UserForm1.Show
End Sub