Envoi de plusieurs feuille par mail (outlook)

Bonjour,

J'ai un code me permettant d'enregistrer et d'envoyer la feuille active par mail (par l'intermédiaire de outlook)

Je voudrais faire exactement la même chose sauf que je veux intégrer dans le nouveaux fichier crée toutes les feuilles selectionnées (quand on appui sur ctrl+click gauche de la souris sur les onglets)

Comment puis-je faire ?

Voici mon code actuel :

Sub SendMail_Outlook()

   Dim ol As New Outlook.Application
   Dim olmail As MailItem
   Dim CurrFile As String

    ActiveSheet.Copy
    Set WB = ActiveWorkbook
    Filename = "Fiche de relance.xls"
    On Error Resume Next
    Kill "C:\" & Filename
    On Error GoTo 0
    WB.SaveAs Filename:="C:\" & Filename
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)

   With olmail
      .To = ""
      .Subject = "sujet
      .Body = "corps"
      .Attachments.Add WB.FullName
      .Display        '.Send
   End With
End Sub

Voici ce qu'il fallait rajouter :

ActiveWindow.SelectedSheets.Copy 'pour copier toutes les feuilles selectionnées

'ActiveSheet.Copy //pour copier que la feuille active