alimentation d'une listbox a partir d'une macro

Bonsoir a tous , je suis pas expert en excel et je fais appel a votre aide a propos d'un point qui coince sur ma macro , en résumé je sais pas comment liée une macro avec une liste box afin que sur la listebox s'affichent des données (ici des noms ) , j'ai mit une condition IF et THEN pour changer la couleur du font de texte ,et je veut que le ELSE transfert les autres noms sur la LISTEBOX1 , voila le code comme vous le voyer :

Sub MS()
Dim rf As Range
Dim rc As Range
Dim cf As Range
Dim cr As Range
Application.ScreenUpdating = False

With Worksheets("Liste1")
Set rf = .Range("A1:A18")
Set rc = .Range("F1:J9")

For Each cf In rf '
For Each cr In rc
If cr.Value = cf.Value Then
cf.Font.ColorIndex = 8
Exit For

Else: ?????

End If 'fin de la condition
Next cr
Next cf
End With
End Sub
--

Merci d'avance pour votre aide !!!