Private Sub CommandButton1_Click()
ListView1.SelectedItem.Text = Me.TextBox1.Text
ListView1.SelectedItem.ListSubItems(1).Text = Me.TextBox2.Text
ListView1.SelectedItem.ListSubItems(2).Text = Me.TextBox3.Text
ListView1.SelectedItem.ListSubItems(3).Text = Me.ComboBox1.Text
ListView1.SelectedItem.ListSubItems(4).Text = CDate(Me.TextBox4.Value)
ListView1.SelectedItem.ListSubItems(5).Text = Me.ComboBox2.Text
ListView1.SelectedItem.ListSubItems(6).Text = CDate(Me.TextBox5.Value)
ListView1.SelectedItem.ListSubItems(7).Text = Me.ComboBox3.Text
ListView1.SelectedItem.ListSubItems(8).Text = Me.TextBox6.Text
ListView1.SelectedItem.ListSubItems(9).Text = Me.TextBox7.Text
Dim I As Integer
Dim J As Byte
Dim K As Integer
K = 2
For I = 1 To ListView1.ListItems.Count
BASEINTERVENTIONS.Cells(K, 5) = ListView1.ListItems(I).Text
For J = 1 To ListView1.ColumnHeaders.Count - 1
BASEINTERVENTIONS.Cells(K, J + 9) = ListView1.ListItems(I).ListSubItems(J).Text
Next J
BASEINTERVENTIONS.Cells(K, 19).FormulaR1C1 = "=RC[-4]-RC[-6]"
BASEINTERVENTIONS.Cells(K, 20).FormulaR1C1 = "=RC[-7]-RC[-11]"
K = K + 1
Next I