Bonjour,
Modifier le code du bouton VALIDER comme ceci
Sheets("Formulaire").Unprotect ' ou si mot de passe défini Sheets("formulaire").Unprotect Password:="mot de passe"
With [Formulaire6]
If .Item(1, 1) = "" Then n = 1 Else n = .Rows.Count + 1
.Item(n, 1) = Me.TextBox1
.Item(n, 2) = Me.ComboBox1
.Item(n, 3) = Me.ComboBox2
.Item(n, 4) = Me.ComboBox3
If Me.OptionButton1 = True Then .Item(n, 5) = CDbl(Me.TextBox2)
If Me.OptionButton2 = True Then .Item(n, 6) = CDbl(Me.TextBox2)
End With
Sheets("Formulaire").Protect ' ou si mot de passe défini Sheets("Formulaire").Protect Password:="mot de passe"