XL 2013 Aide macro sous excel

Bonjour

J'ai fait une macro et contente cela fonctionne mais j'ai besoin d'ouvrir le fichier (pdf) pour lecture, quel code je dois rajouter ?
Merci beaucoup pour votre aide

Sub Recherche()
Dim NomFichier As String

NomFichier = RechercheFichier()
If NomFichier = "" Then
MsgBox "Vous n'avez sélectionné aucun fichier"
Else
'Workbooks.Open NomFichier
End If
End Sub

Function RechercheFichier() As String
Dim fd As FileDialog
Dim NomFichier As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Add "fichier pdf", "*.pdf"
.Title = "Recherche de fichier"
'mettre le chemin du repertoire
.InitialFileName = ""
End With
If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)

RechercheFichier = NomFichier
Set fd = Nothing
End Function