XL 2016 joindre PJ pdf trouvée dans dossier

[moussa mohamed said]

Bonjour à tous
merci de m'aider pour créer un macro pour envoyer plusieurs fichiers pdf trouvées dans un dossier sur bureau a partir d'un tableau excel qui contient les noms des fichiers pdf et adresses mail.

Sub EnvoiMail()
Dim ListeDest()
Dim ListeComment()
Dim i As Long
Dim oMsgApp As Object
Dim oMsg As Object
Dim sListeDest As String
Dim sFichier As String

sFichier = ????????
If sFichier = "" Then
MsgBox "Aucun fichier sélectionné, opération annulée"
Exit Sub
End If

Set oMsgApp = CreateObject("Outlook.Application")

ListeDest() = Range("tblBase[Mail]")
ListeComment() = Range("tblBase[Commentaire]")



For i = LBound(ListeDest(), 1) To UBound(ListeDest(), 1)
Set oMsg = oMsgApp.CreateItem(0)
With oMsg
.To = ListeDest(i, 1)
.Attachments.Add ?????
.Subject = "BULLETIN DE PAIE 11-2019"
.Body = "BONNE RECEPTION" & Chr(10) & Chr(13) & _
ListeComment(i, 1) & Chr(10) & Chr(13) & "BONNE RECEPTION"
.Send
End With
Set oMsg = Nothing
Next

oMsgApp.Quit
Set oMsgApp = Nothing
MsgBox "Mail envoyé"
End Sub