VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Feuil8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
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


