Private Sub CommandButton1_Click()
Dim F As Worksheet, I As Long, Cbx As MSForms.ComboBox, L As Long
Set F = Worksheets("Chèvre")
For I = 1 To 15
Set Cbx = Me("ComboBox" & I)
L = Cbx.ListIndex + 2
If L < 2 Then Exit For
F.Cells(L, 3).Value = F.Cells(L, 2) * Val(Me("TextBox" & 30 + I).Text)
Next I
Columns("C").NumberFormat = "General"
Unload Me
End Sub