ouvrir un programme dans une macro

Sub PlayVideo()
  Dim Path_Name, File_Name, Complete_File_Name As String
  Dim Chemin_File_Name, Question As String

    File_Name = ActiveWorkbook.Name
    Path_Name = ThisWorkbook.Path
    Chemin_File_Name = Path_Name & "\" & "Films\" & [C4] & "\"
    Complete_File_Name = Chemin_File_Name & [O4]

  If [J4] = "NON" Or [I4] <> "D.D." Or [W6] = 0 Then
    MsgBox "La vidéo n'est pas disponible sur ce P.C.!!! ", vbOKOnly + vbInformation, "Information"
  Exit Sub
  Else
    Range("S6") = Chemin_File_Name
    Range("S7") = Range("O4")
    Question = MsgBox("Voulez-vous visionner la vidéo : " & [C4], vbYesNo + vbQuestion, "Voir une Vidéo.")

If Question = vbYes Then
    File_Name = [S6] & [S7]

    MsgBox File_Name    ' & Path_Name
  
    Shell """C:\Program Files (x86)\VideoLAN\VLC\vlc.exe"" ""& file_name""", vbMaximizedFocus    

Else: Exit Sub
    End If
        End If
End Sub