' Feuille Base
Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
' code Feuille Base
  Dim id$
  If Not Intersect(Target, Range("tb_Base[Id]")) Is Nothing And Target.Count = 1 Then
    Cancel = True
    Call RecupExistantBase(Target.Value)
    Sheets("Saisie").Activate
  End If
End Sub


