Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Left(ActiveSheet.Name, 14) = "Liste Dossiers" Then Exit Sub
Cancel = True
On Error GoTo suite
Shell ("Explorer.exe " & ActiveCell.Offset(0, -1) & "\" & ActiveCell), vbMaximizedFocus: Exit Sub
suite:
Shell ("Explorer.exe " & ActiveCell), vbMaximizedFocus
End Sub