VBA:remplir combobox

bonjour a tous

j'ai un probleme je n'arrive pas a remplir un combobox

j'ai un code dans un module et a partir de ce code je voudrais mettre donnees cellules (ch1)dans un combo


For j = lig1 + 1 To lig1 + 500
If Left(Cells(j, 1), longch) = "" Then j = lig1 + 500
If ch = Left(Cells(j, 1), longch) Then
ch1 = (Cells(j, 1))............................................................>mettre ch1 dans combobox1????
'userform_initialize

j = lig1 + 500
End If

Next
End Sub


merci de m'aider