Double clique + macro rechercheV Excel

Bonjour à tous,

je cherche à mettre en place diverses actions ente les tableaux de 2 feuilles excel:

la 1ère action: lorsque je double clique sur une case du tableau de la feuille 1, le double clique permet de copier le contenu de la cellule en question dans la 1ère colonne du tableau de la feuille 2. Ci dessous le VBA:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim F1 As Range, a As String, ligne As Integer

Set F1 = Application.Intersect(Target, Range("C3:C500"))

If (F1 Is Nothing) Then
Else

ActiveSheet.Unprotect "cc"

a = ActiveCell.Value
ligne = ActiveCell.Row

Cells(ligne, 3).Select
Selection.Copy

Sheets("Feuil1").Range("B6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveSheet.Protect "cc"

End If

End Sub

La macro suivante permet de faire un rechercheV dans le tableau de la feuille 1 pour copier dans les autres colonnes du tableau de la feuille 2 les informations correspondantes à la case "double cliqué" précédemment.
Ci dessous le texte VBA:

Sub produit()
ActiveCell.Offset(0, 1).Formula = "=VLOOKUP(B6,feuil5!A3:L68,2,FALSE)"
ActiveCell.Offset(0, 2).Formula = "=VLOOKUP(B6,feuil5!A3:L68,4,FALSE)"
End Sub

La 1ère action fonctionne très bien alors que lorsque j'actionne la seconde macro les résultats obtenus dans le tableau de la feuille 2 sont #N/A

Quequ'un pourrait-il m'aider?

J'obtiens le message suivant:

"Erreur d'exécution 1004
La méthode Select de la classe Range a échoué"

Merci à tous