macro pour ouvrir pdf

Option Explicit
Option Compare Text

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim tablo$(), n&, i&, fichier$, s$, dossier$

If Target.Row > 1 And Target.Column = 3 And Len(Trim(Target)) > 0 Then
  Cancel = True
  dossier = ThisWorkbook.Path
  If Right(dossier, 1) <> "\" Then dossier = dossier & "\"
  fichier = Dir(dossier & "*" & Trim(Target) & "*")
  Do While fichier <> ""
    n = n + 1: ReDim Preserve tablo(1 To n): tablo(n) = fichier: fichier = Dir
  Loop
  Select Case n
    Case 0
      MsgBox "Aucun fichier PDF ne contient " & Target
    Case 1
      ThisWorkbook.FollowHyperlink Address:=tablo(1), NewWindow:=True
    Case Else
      s = "Il existe " & n & " fichiers PDF contenant " & Target
      s = s & ". Veuillez saisir le N° du fichier ? :"
      For i = 1 To n
        s = s & vbLf & i & Space(3 - Len(CStr(i))) & " -> " & tablo(i)
      Next i
      On Error Resume Next: i = Int(InputBox(s)): On Error GoTo 0
      If i > 0 And i <= n Then
        ThisWorkbook.FollowHyperlink Address:=dossier & tablo(i), NewWindow:=True
      End If
  End Select
End If
End Sub

Option Explicit

Sub Tst()
Dim FSO As Object
Dim sCheminPdf As String, sNomFichier As String

    sCheminPdf = "....."
    sNomFichier = "....."
    Set FSO = Objecteur("Scripting.FileSystemObject")
    If FSO.fileExists(sCheminPdf & "\" & sNomFichier) Then
        '.....
    Else
        '.....
    End If
    Set FSO = Nothing
End Sub