Private Sub CommandButton1_Click()
'le message de confirmation arrive apparait "confirmez vous..." si oui alors
If MsgBox("confirmez vous l'ajout de la fiche " & ComboBox1, vbYesNo, "attention") = vbYes Then
'avec la feuille Code
With Sheets(ComboBox1.Value)
L = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("a" & L) = TextBox2.Value
.Range("b" & L) = TextBox3.Value
.Range("c" & L) = TextBox4.Value
End With
End If
Unload Me
End Sub