Private Sub UserForm_Initialize()
Dim Usf_Class As Object, i As Integer
Dim F
Set Coll_Usf = New Collection
For i = 1 To 42
Set Usf_Class = New Class_Usf
Set Usf_Class.Jour = Me.Controls("J" & i)
Coll_Usf.Add Usf_Class
Next i
ComboBox1.List() = Array("", "Virement", "Prélèvement", "CB", "Chèque", "Interne")
For F = 1 To 3
ComboBox2.AddItem Range("Q" & 4 + F)
Next F
TextBox1.Value = DateValue(Now)
OptionButton1.Value = True
End Sub