Bonsoir,
Si j'ai bien compris le souci, voici un code à placer dans l'USF à la place de l'existant
Private Sub CommandButton1_Click()
Dim lg As Integer
lg = Sheets("Feuil1").Range("B" & Sheets("Feuil1").Rows.Count).End(xlUp).Row + 1
'Insertion des valeurs sur la feuille
Cells(lg, 3) = TextBox1
Cells(lg, 3) = TextBox2
Cells(lg, 4) = TextBox3
Cells(lg, 7) = ComboBox1.Value
'Après insertion, on remet les valeurs initiales
CommandButton1.Value = True
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox1.ListIndex = -1
End Sub
Si terminé, merci de ne pas omettre de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER
Amicalement