Option Explicit
Private Sub CommandButton1_Click()
Dim V2(1 To 1, 1 To 5), DerLigne As Long
On Error GoTo Erreur
V2(1, 1) = Me.MonthView1.Value
V2(1, 2) = Me.ComboBox1.Text
V2(1, 3) = CCur(Me.TextBox1.Text)
V2(1, 5) = CCur(Me.TextBox2.Text)
With Worksheets("Base")
DerLigne = .Cells(65000, "C").End(xlUp).Row + 1
.[A:E].Rows(DerLigne).Value2 = V2
End With
Exit Sub
Erreur: MsgBox Err.Description
End Sub