Macro mail a partir de plusieurs possibilités listbox

Bonjour a tous,

Je cherche une macro qui, a partir d'un choix (3 choix possibles) d'une listbox, me permet d'acceder a ma macro d'envoi de mail.

Ayant 3 possibilités j'ai fais 3 fois la meme macro avec un select case qui choisi selon la possibilité

Etant donné que le listbox est sur un autre module, existe t-il un code / une fonction qui reprenne mon choix que j'ai fais précédemment et qui le dirige automatiquement sur le select case concerné ?

J'ai trouvé une procédure évènementielle mais je ne sais pas si je peux l'utiliser tel quel

 ''CallByName UserForm1, "Brigades", VbMethod

Merci aux nombreuses personnes volontaires pour aider

Sub Mail_retour_flux()

Dim le_matin, le_am, le_nuit As String

If brigades.ListBox1.Value = "MATIN" Then Select Case le_matin
End If
If brigades.ListBox1.Value = "AM" Then Select Case le_am
End If
If brigades.ListBox1.Value = "NUIT" Then Select Case le_nuit
End If

Case le_matin:

Dim Monoutlook As Object
Dim Monmessagemat As Object

Set Monoutlook = CreateObject("Outlook.Application")
Set Monmessage = Monoutlook.CreateItem(0)

Set Monoutlook = Nothing

        With Monmessage
            .To = "xxxxx"
            '.Cc = "xxxxx"
            .Subject = "xxxxx"
            .Body = "Bonjour, " & Chr(10) & Chr(10) & "Voici le bilan de: " & Chr(10) & Chr(10) & "Cordialement"
            .Attachments.Add "xxxxx"
            .OriginatorDeliveryReportRequested = True
            .ReadReceiptRequested = False
            .display
        End With

Case le_am:

Dim Monoutlook As Object
Dim Monmessagemat As Object

Set Monoutlook = CreateObject("Outlook.Application")
Set Monmessage = Monoutlook.CreateItem(0)

Set Monoutlook = Nothing

        With Monmessage
            .To = "xxxxx"
            '.Cc = "xxxxx"
            .Subject = "xxxxx"
            .Body = "Bonjour, " & Chr(10) & Chr(10) & "Voici le bilan de: " & Chr(10) & Chr(10) & "Cordialement"
            .Attachments.Add "xxxxx"
            .OriginatorDeliveryReportRequested = True
            .ReadReceiptRequested = False
            .display
        End With

Case le_nuit:

Dim Monoutlook As Object
Dim Monmessagemat As Object

Set Monoutlook = CreateObject("Outlook.Application")
Set Monmessage = Monoutlook.CreateItem(0)

Set Monoutlook = Nothing

        With Monmessage
            .To = "xxxxx"
            '.Cc = "xxxxx"
            .Subject = "xxxxx"
            .Body = "Bonjour, " & Chr(10) & Chr(10) & "Voici le bilan de: " & Chr(10) & Chr(10) & "Cordialement"
            .Attachments.Add "xxxxx"
            .OriginatorDeliveryReportRequested = True
            .ReadReceiptRequested = False
            .display
        End With

End Select

Call Module9.Mise_en_PDF
End Sub

Petite mise a jour car j'ai réussi a afficher la fenêtre de ma trame de mail Outlook, mais celle ci se place par défaut sur "MATIN" même quand je sélectionne "AM" ou "NUIT" a partir de l'userform.

"MATIN", "AM", et "NUIT" définissent des fenêtres avec un tableaux sur chacun d'eux, j'appelle "choix" par une de ces fenetres.

Pour faire simple, je souhaite qu'une fois que je sélectionne un choix sur ma listbox, celui ci (uniquement) s'affiche dans la trame de mon mail, accompagné du tableau qu'il lui est associé

Des idées ?

Merci

Personne ?