Option Explicit
Private Sub Worksheet_Calculate()
Feuil1.TextBox1.Value = Range("A1").Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Feuil1.TextBox1.Value = Range("A1").Value
End Sub
Feuil1.TextBox1.Value = Range("A1").Value
NomUserForm.TextBox1.Value = Range("A1").Value