' 1er cas : Par examen du nom de la feuille
Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name <> "FeuilleTravail" Then Exit Sub
'...
' votre code
'...
End Sub
' 2eme cas : Par examen de la cellule A1
Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Range("A1") = "Copie" Then Exit Sub
'...
' votre code
'...
End Sub