Private Sub CommandButton1_Click()
Dim LgSem As Long
On Error Resume Next
LgSem = ComboBox1.ListIndex + 1
With Sheets("BD")
.Range("I" & LgSem) = CCur(.Range("I" & LgSem) + TextBox1.Value)
.Range("J" & LgSem) = CCur(.Range("I" & LgSem) + TextBox2.Value)
End With
Unload Me
End Sub