Attacher plusieurs PDF

Bonjour le forum

Voici une macro qui fonctionne super bien

La ligne de code "qso" permet d'attacher le seul pdf dans un mail qui se trouve dans le dossier laderne

Concernant la ligne de code "suf", je voudrais attacher tous les PDF dans un mail qui se trouvent dans le dossier herdine

D'avance Merci

Sub envoi_email()

Dim messagerie As Object

Dim courriel As Object

Dim nompdf As String

Dim Texte As String

Dim fich As String

Select Case ActiveSheet.[C1]

Case "qso": fich = "C:\Users\Documents\Lescury\petron\laderne.pdf"

Case "suf": fich = "C:\Users\Documents\Lescury\petron\herdine.pdf"

End Select

nompdf = Environ("Temp") & "\" & "pièce_jointe"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Range("texte").Copy

Texte = Texte & "Veuiller trouver en PJ toutes les informations relative à votre dossier" & vbCrLf & vbCrLf '& Range("U21") & vbCrLf & vbCrLf

Texte = Texte & [C11] & vbCrLf & vbCrLf

Texte = Texte & [C12]

Texte = Texte & vbCrLf

Texte = Texte & [B13]

Texte = Texte & vbCrLf & vbCrLf & vbCrLf

Set messagerie = CreateObject("Outlook.Application")

Set courriel = messagerie.CreateItem(0)

With courriel

.To = Range("destinataire")

.Subject = Range("titre")

.Attachments.Add fich

.Body = Texte

.display

End With

DoEvents

Set courriel = Nothing

Set messagerie = Nothing

Sheets("Recap").Select

End Sub