XL 2013 fiche technique + mercuriale cuisine

Range ("b19:b50")

Private Sub Worksheet_Activate()
FromFichTech = False
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("b16:b50")) Is Nothing Then
FromFichTech = True
Sheets("Mercuriale").Activate
MsgBox "Double-cliquez sur le produit à placer sur la fiche technique.", vbInformation
End If
End Sub

Option Explicit
Public FromFichTech As Boolean
Public ShtName As String
Public RngCible As Range
Public RngSource As Range
Public ShCible As Worksheet
Public ShSource As Worksheet

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
           ShtName = Sh.Name
   FromFichTech = False 'On met a False
               Cancel = False 'evite la selection de la Cellule
With Sh 'Avec la feuille
 'Si feuille "technique" et cellule dans la Plage "B16:B50"
 If ShtName Like "Fiche technique*" And Not Intersect(Target, .Range("b16:b50")) Is Nothing Then
     Set ShCible = Sh 'On récupére la Feuille "Fiche technique"
    FromFichTech = True 'On met a true
    Set RngCible = Target 'On récupére
         Sheets("Mercuriale").Activate
         MsgBox "Double-cliquez sur le produit à placer sur la fiche technique.", vbInformation
   ElseIf Sh.Name = "Mercuriale" Then 'Si feuille "Mercuriale"
     If FromFichTech Or Not IsNumeric(Target.Offset(, 2)) Then Exit Sub 'Si pas de selection dans une feulle Cible"Fiche technique"
           Set ShSource = Sh 'On récupére la Feuille "Mercuriale"
          Set RngSource = Target 'On récupére
         RngCible.Value = RngSource.Value 'On colle la valeur dans la cellule de la feuille Cible
         RngCible.Offset(, 1).Value = RngSource.Offset(, 1).Value 'Idem
         RngCible.Offset(, 8).Value = RngSource.Offset(, 2).Value 'Idem
         ShCible.Activate 'retour a la feuille "Fiche technique x
         FromFichTech = False 'On met a False
 End If
End With
Cancel = True 'On réinitialise
End Sub