Private Sub UserForm_Initialize()
Dim J As Long, I As Integer
Set Sh = Sheets("param")
ComboBox1.Clear
ComboBox2.Clear
With Me.ComboBox1
For J = 2 To Sh.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Sh.Range("A" & J)
Next J
End With
With Me.ComboBox2
For J = 2 To Sh.Range("B" & Rows.Count).End(xlUp).Row
.AddItem Sh.Range("B" & J)
Next J
End With
End Sub