Envoi d'une pièce jointe PDF via Macro Excel

[Frany06]

Bonjour,
Grâce à une macro Excel, j'aimerais envoyer des pièces jointes PDF d'intitulés différents (disponible dans un fichier) en fonction de l'objet du mail Outlook.
L'objet dépend d'une donnée dans une cellule et la pièce jointe doit dépendre de cette même donnée. Elle doit être différente et adaptée à chaque envoi.

'Send
Dim AppOut As Object
Dim oMailItem As Object
Dim NomModele As String

NomModele = "(Chemin d'accès Masque)\Mail CC" & ".oft" 'nom du masque
Set AppOut = CreateObject("Outlook.Application")
Set oMailItem = AppOut.CreateItemFromTemplate(NomModele)
oMailItem.Display

With oMailItem
.SentOnBehalfOfName = ""
.To = mail
.CC = FACT & ";" & & ";" & & ";" &

.Attachments.Add "(chemin d'accès pièces jointes)" & ".pdf" 'pièces jointes
.Subject = "Nom objet: " & Range("C4") & " - " & Range("E4") & " - " & Range("A1") & " - " & Range("A2")

.Display '
End With 'olMail


Merci pour votre aide
Cdt