Envoi plusieurs fichiers PDF dans un seul mail

Bonjour,

Je suis débutant dans VBA et Je voudrais envoyer plusieurs fichiers PDF dans un Mail uniquement, j'ai commencé mais je ne sais pas où placer cette boucle pour sélectionner plusieurs fichiers dans un répertoire et les attacher dans un mail.

Merci

Sub Envoyer_Mail_Outlook()

Dim ObjOutlook As New Outlook.Application

Dim oBjMail

Dim Nom_Fichier As String

Range("A2").Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Application.CutCopyMode = False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\thierry\Desktop\Commande\fichier.pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

False

Set ObjOutlook = New Outlook.Application

Set oBjMail = ObjOutlook.CreateItem(olMailItem)

'---------------------------------------------------------

'Exemple pour envoyer un classeur en pièce jointe

'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")

'If Nom_Fichier = "Faux" Then Exit Sub

'---------------------------------------------------------

'Ou bien entrer le path et nom du fichier autrement

Nom_Fichier = "C:\Users\thierry\Desktop\Commande\fichier.pdf"

If Nom_Fichier = "" Then Exit Sub

'---------------------------------------------------------

With oBjMail

.To = "thierry.matignon@free.fr" ' le destinataire

.Subject = "Ici c'est l'objet" ' l'objet du mail

.Body = "Ici le texte du mail " 'le corps du mail ..son contenu

.Attachments.Add Nom_Fichier '"C:\users\thierry\command\" ' ou Nomfichier

.Display ' Ici on peut supprimer pour l'envoyer sans vérification

.Send

End With

'ObjOutlook.Quit

'Set oBjMail = Nothing

' Set ObjOutlook = Nothing

End Sub