Bonjour,
Un exemple...

Function ConcaTList() As String
Dim Txt As String
    For i = 1 To ListBox1.ListCount
        If ListBox1.Selected(i) = True Then
            Txt = Txt & ListBox1.List(i) & "/"
        End If
    Next i
    ConcaTList = Txt
End Function

Merci pour ta reponse lermite

si j'ai bien tout suivi il me reste qu'a ajouté après ce code

activecell.value = txt

c'est bien ca ?

Beh oui...
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Merci beaucoup lermite

Désoler pour la réponse erronnée...
c'est
ActiveCell = ConcaTList() L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Ok merci

J'ai essayé ta fonction mais j'obtient le message suivant

Erreur d'éxécution -2147024908....

impossible de lire la propriété selected. argument non valide

Bonjour Antic, Louis

Dans les les propriétés de talistbox "multiselect" est elle sur l'option "fmmultiselectextended" ? Cordialement,
Michel

Je n'ai pas verifier cette option mais j'ai modifier cette ligne

For i = 1 To ListBox1.ListCount


j'ai mis

For i = 0 To ListBox1.ListCount -1