macro click droit - plusieurs feuilles

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
[COLOR="Red"]'  If PlageTableau Is Nothing Then
  Initialise[/COLOR]
  If Not Intersect(Target, PlageTableau) Is Nothing Then
    Cancel = True
    BarDroit.ShowPopup
  End If
End Sub

Public Sub Initialise()
  BarAdd
  With [COLOR="Red"]ActiveSheet[/COLOR]
  
    Set CelTOUTAFAITDACCORD = .Range([COLOR="Red"]"is1"[/COLOR])
    Set CelPLUTOTDACCORD = .Range([COLOR="Red"]"it1"[/COLOR])
    Set CelPASDACCORD = .Range([COLOR="Red"]"iu1"[/COLOR])
    Set CelSANSAVIS = .Range([COLOR="Red"]"iv1"[/COLOR])
    
    'On Error Resume Next
    Set PlageTableau = .Range([COLOR="Red"]"b5:b34"[/COLOR])
  End With
End Sub