Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("I8:I350")) Is Nothing Then
Cancel = True
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not FeuilExist(CStr(Target.Value)) Then
MsgBox "Feuille inéxistante", vbCritical
Exit Sub
Else
Sheets(CStr(Target.Value)).Visible = -1
Sheets(CStr(Target.Value)).Select
End If
End If
If Not Intersect(Target, Range("J8:J350")) Is Nothing Then
Cancel = True
If Target = "" Then Exit Sub
If Not FeuilExist(CStr(Target.Value)) Then
MsgBox "Feuille inéxistante", vbCritical
Exit Sub
Else
Sheets(CStr(Target.Value)).Visible = 2
End If
End If
End Sub