Bonjour,
Supprime tous les codes que tu as mis dans ton USF et remplace les par celui-ci
Private Sub CommandButton1_Click()
Dim lfin As Integer
With Sheets("Feuil1")
If OptionButton1 = True Then
lfin = .Range("B" & .Rows.Count).End(xlUp).Row + 1
.Range("B" & lfin) = TextBox1.Value
ElseIf OptionButton2 = True Then
lfin = .Range("D" & .Rows.Count).End(xlUp).Row + 1
.Range("D" & lfin) = TextBox1.Value
ElseIf OptionButton3 = True Then
lfin = .Range("F" & .Rows.Count).End(xlUp).Row + 1
.Range("F" & lfin) = TextBox1.Value
Else: MsgBox "veuillez à sélectionner une option"
End If
End With
End Sub
Si ok lors de ta réponse, clique sur le v vert à coté du bouton EDITER pour cloturer le fil
Cordialement