Mise à jour fichier excel depuis un autre

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target <> "MONO" Then Exit Sub
    AjoutDataCl2 Target.Row
End Sub

Option Explicit
Sub AjoutDataCl2(numli As Long)
Dim wb2 As Workbook
Dim sh2 As Worksheet
Dim preco As Integer, delivi As Long
Dim ajout As Variant

Set wb2 = Workbooks("Popore_ccm_classeur_2.xls")
Set sh2 = wb2.Worksheets("Feuil1")
preco = 2
    'Récupérer valeur à ajouter classeur 2
    ajout = Array(Range("a" & numli).Value, Range("F" & numli).Value)
    With sh2
    delivi = .Cells(Columns(2).Cells.Count, 2).End(xlUp).Row + 1
        .Range("B" & delivi & ":C" & delivi) = ajout
        MsgBox "L'ajout au classeur_2 est réalisé pour : " & Range("a" & numli).Value
    End With
End Sub