'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Sub ChoixMultiFichiers_EnvoiMail()
Dim Fichiers As Variant
Dim i As Integer
Dim Ol As Outlook.Application
Dim olMail As MailItem
'Affiche la boîte dialogue "Ouvrir"
'(C'est l'argument True qui autorise la multisélection)
Fichiers = Application.GetOpenFilename("Tous les fichiers (*.*),*.*", , , , True)
Set Ol = New Outlook.Application
Set olMail = Ol.CreateItem(olMailItem)
With olMail
.To = Range("D4")
.Subject = "Votre demande de calcul d'indemnité de départ "
.HTMLBody = "<html><body>Bonjour,</body></html><br>" & "<html><body>Veuillez trouver ci-joint la simulation demandée</body></html><br>" & "<html><body>Nous vous en souhaitons bonne réception</body></html><br>" & "<html><body>Cordialement</body></html>" & .HTMLBody 'le corps du mail ..son contenu
'Boucle sur le tableau pour récupérer le nom du ou des classeurs sélectionnées.
'(IsArray(Fichiers) renvoie False si aucun fichier n'a été sélectionné).
If IsArray(Fichiers) Then
For i = 1 To UBound(Fichiers)
.Attachments.Add Fichiers(i)
Next
End If
.Display
End With
End Sub