XL 2016 Joindre par mail un fichier.pdf personnalité selon le prénom trouvé dans le titre du pdf

Sub ChercheFichier(Prenom As String)
'
    CheminDossier = ThisWorkbook.Path & "\Plannings personnalisés\"
    NomFichier = Dir(CheminDossier & "*" & Prenom & "*")
    While NomFichier <> ""
        Debug.Print NomFichier
        NomFichier = Dir
    Wend

End Sub

Sub Envoi_mails()
'
Dim i As Long
Dim OA As Object
Dim msg As Object
Dim Tablo As Range

    Set OA = CreateObject("outlook.application")

    Set Tablo = Range("t_Messages")

    For i = 1 To Tablo.ListObject.ListRows.Count

        If Tablo(i, 10).Value <> "NON" Then

            Set msg = OA.CreateItem(0)

            ' Destinataire
            msg.To = Tablo(i, 1).Value

            ' Destinataire en Copie Carbonne
            If Tablo(i, 2).Value <> "" Then msg.CC = Tablo(i, 2).Value

            ' Destinataire en Copie Carbonne Invisible
            If Tablo(i, 3).Value <> "" Then msg.BCC = Tablo(i, 3).Value

            ' Objet du mail
            If Tablo(i, 4).Value <> "" Then msg.Subject = Tablo(i, 4).Value

            ' Coprs du mail ( /!\ avec chr(10) ou <Alt>+<Entrée> /!\ )
            If Tablo(i, 5).Value <> "" Then msg.Body = Tablo(i, 5).Value

            ' Pièces jointes communes
            If Tablo(i, 6).Value <> "" Then msg.Attachments.Add Tablo(i, 6).Value   ' Pièce jointe 1
            If Tablo(i, 7).Value <> "" Then msg.Attachments.Add Tablo(i, 7).Value   ' Pièce jointe 2
            If Tablo(i, 8).Value <> "" Then msg.Attachments.Add Tablo(i, 8).Value   ' Pièce jointe 3

            ' Pièce jointe personnalisée
'            If Tablo(i, 9).Value <> "" Then msg.Attachments.Add Tablo(i, 9).Value   ' Pièce jointe 4

            msg.Display
'            msg.Send

            Tablo(i, 11).Value = "Envoyé"

        End If

    Next i

    MsgBox "Messages Envoyés", vbInformation, "Misson accomplie !"

End Sub