[XL-2013] Envoie mail d'une listbox

Bonjour,

j'ai créé un Userform de recherche dont la réponse s'affiche dans une listbox.
J'ai crée un bouton pour envoyer un mail qui affiche la ListBox1 dans le corps du mail.
Mon problème est que la listbox ne s'affiche pas dans outlook.
Je pense q'il manque un bout de code ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CommandButton2_Click()
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim corps As String
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = ""
  MonMessage.Subject = "Code magasin"
    corps = "Bonjour,"
    corps = corps & Chr(13) & Chr(10)
    corps = "Veuillez trouver ci-dessous les codes magasins que vous recherchez" & Chr(13) & Chr(10)
    corps = corps & recherche.ListBox1.Value
    corps = corps & Chr(13) & Chr(10)
 
  MonMessage.body = corps
  MonMessage.Display
  Set MonOutlook = Nothing
End Sub