Bonjour Lotus
Euh non, tu t'y prends mal, avec les controls TextBox ce n'est pas comme avec des cellules.
Essaie plutôt comme ceci :
Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A1").Value = TextBox1.Value
Sheets("Sheet1").PrintOut
End Sub
Tu remplaces "Sheet1" par le nom de ta feuille et "A1" par la cellule de destination.
Bon Week End
@+Thierry