Bonjour quiqui,
Dans ton exemple, ajoute simplement la ligne suivante après la mise en place dans la cellule
TextBox1.Text = ActiveCell.Value
Ceci dans la routine suivante:
Private Sub CommandButton1_Click()
Range("c3").Select
ActiveCell.FormulaR1C1 = "essaie"
TextBox1.Text = ActiveCell.Value
End Sub
@+Robert