Bonjour,
Ceci marche très bien, comment ça peut ne pas marcher chez toi ? As-tu mis le mot de passe ?
Private Sub CommandButton1_Click()
With ActiveSheet
.Unprotect "MonMotDePasse"
.Range("A10").Value = Me.TextBox1.Text
.Protect "MonMotDePasse"
End With
End Sub
Hervé.