Lancer un .exe dont le nom est dans une cellule

[Chris57]

Bonjour à tous,

pour lire des mp3 à partir de excel j'ai fait ceci :

' Lecture fichier par double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, [B10:B509]) Is Nothing Then
        chemin = [D3]
        Shell ("C:\Program Files (x86)\_Codecs\Media Player Classic - Home Cinema\mpc-hc64.exe """ & chemin & "\" & Target & "")
    End If
End Sub

ça fonctionne à merveille !

Maintenant j'aimerai avoir la possibilité de choisir un autre lecteur :
Private Sub Image21_Click()
myPLAYER = InputBox("Lecteur :", "PLAYER", Sheets("Aide").[H108].value)
Sheets("Lecture").[H108] = myPLAYER
End Sub


J'ai tenté un

Shell (myPLAYER  & chemin & "\" & Target & "")

mais ça ne marche pas !!

Quelqu'un a une idée ??