Récupérer une cellule pour les réafficher dans une listbox

Bonjour à vous,

Je souhaite récupérer les données d'une cellule et les réafficher "en sélection" dans une listbox.

Pour être plus claire :

- J'ai une listbox qui affiche des données (dans un userform) : OK

For s = 2 To Sheets("sources").Range("D65536").End(xlUp).Row
      ListBox_Type.AddItem Sheets("sources").Cells(s, 4)
Next s

- Je sélectionne les données que je veux : OK

- J'enregistre ces données dans une cellule excel (en les séparant par des ";") : OK

Dim i As Integer
Dim StrSelection As String

'récupère la sélection 
    For i = 0 To ListBox_Type.ListCount - 1
        If ListBox_Type.Selected(i) = True Then
            If StrSelection <> "" Then StrSelection = StrSelection & ";"
            StrSelection = StrSelection & ListBox_Type.List(i, 0)
        End If
    Next i

'Ecrit dans la 1ère cellule Excel vide
    Dim M As Integer
    M = 5
    ActiveWorkbook.Worksheets("Selections").Select
    While Not Range("A" & M & "").Value = ""
        M = M + 1
    Wend
Range("F" & M).Value = StrSelection

et là, je souhaite modifier les sélections faites :

- il faut donc récupérérer les données de la cellule excel : OK

'Recherche de la selection
    Recherche = InputBox("Entrez un numéro")
        Dim search As Integer
        For search = 1 To Sheets("Selection").Range("A65536").End(xlUp).Row
        ListBox_Type.Value = ActiveWorkbook.Worksheets("Selection").Range("F" & search).Value

- Réafficher dans l'userform la listbox avec "la sélection récupérée" dans la liste d'origine (juste surligné la sélection de la cellule excel), et donc avec la possibilité d'ajouter ou retirer...
--> et là c'est NOK !

.
Avez vous des idées ?
.
Merci de votre aide !