Bonjour,
Tu ne sais pas très bien ce que tu fais !
D'abord, tu écris ta procédure ainsi :
Private Sub CommandButton1_Click()
Sheets("Prèsence").Range("A1") = TextBox1.Text
UserForm1.Hide
End Sub
Soit, tu évites d'activer (ou de sélectionner) en prenant dès maintenant l'habitude de doter tes expressions de qualificateur d'objet (si tu vois un Range ou Cells sans rien ni point devant, c'est une expression non qualifiée). Et tu apprends à indenter ton code...
Ensuite, si tu lui dis A1, VBA mettra toujours le contenu de la TextBox en A1, il n'inventera pas ce que tu ne lui a pas dit !
Ni nous non plus d'ailleurs ! On n'est pas dans ton cerveau...