Private Sub CommandButton16_Click()
Dim dossier As String
Dim Filename As String
Dim FilenameExiste
Dim DossierExiste
dossier = ThisWorkbook.Path & "\Dossier Arrêt\"
FilenameExiste = Dir(Filename)
DossierExiste = Dir(dossier, vbDirectory)
Filename = dossier & "\" & ListBox2.List(ListBox2.ListIndex)
Shell "explorer /select," & Filename, vbNormalFocus
End Sub