Excel chaine de caractere

Bonjour,

voila j'ai une procedure qui me permet de recuperer quelques données dans une chaine de caractere et me retourner le resultat dans des cellules

je souhaiterais modifier ma procedure pour que le resultat que je recupere soit dans une listbox ou comboBox directement sans placer le resultat dans les cellules.

Ma procedure :

Sub Extraire()
Dim i As Byte, Lig As Byte
Dim Chaine As Variant

Chaine = Split(Replace([A1], """", ""), "name:")
Lig = 2

If UBound(Chaine) = -1 Then Exit Sub

For i = 0 To UBound(Chaine)
If InStr(Chaine(i), "lead") Then
Cells(Lig, 1) = Split(Chaine(i), ",")(0)
Lig = Lig + 1
End If
Next i

End Sub

Merci de votre aide

Cordialement