XL 2010 Ouvrir un fichier PDF à partir d'une ComboBox

Private Sub Choix_des_Cours_Change()
Chemin = "C:\Users\djodj\Documents\MEGA\Mycologie\Cours JM\Cours\"
            ' CHANGER TON chemin ICI avec le slash à la fin >  \
Direction = Dir(Chemin & "*.pdf")

Do While Len(Direction) > 0
fichierpdf = Choix_des_Cours & ".pdf"
If Direction = fichierpdf Then
Shell ("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " _
  & Chemin & fichierpdf), vbMaximizedFocus
  GoTo fin
End If
Direction = Dir()
Loop
End Sub