demande aide pour case à cocher

Je ne parviens pas à trouver ce dont j'ai besoin, et j'ai l'impression de faire fausse route sur la fonction.
La situation se présente ainsi :
Ma case à cocher est dans le classeur "rapport.xls" feuille "liste_observables". Sur la même feuille, la celllule E1 me renvoie à un index des noms du classeur "circonscription.xls".
Ma liste de noms (lignes 2 à 450) est dans le classeur "circonscription.xls", feuille "collecte_observables".
Ce que j'ai besoin de faire :
que la case du classeur "rapport.xls" feuille "liste_observables", quand cochée, me marque "vrai" (dans la ligne qui correspond au nom E1 de l'index) dans le classeur "circonscription.xls" feuille "collecte_observables".
Je crois que je me trompe de fonction dans Excel

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E1")) Is Nothing Then Exit Sub
coche
End Sub

Private Sub CheckBox1_Click()
coche
End Sub

Sub coche()
Dim lig As Variant
On Error Resume Next 'pour le cas où circonscription.xls n'est pas ouvert
With Workbooks("circonscription.xls").Sheets("collecte_observables")
.Range("F2:F450") = ""
lig = Application.Match(Range("E1"), .Range("E2:E450"), 0) 'recherche de la ligne
If IsNumeric(lig) Then
If CheckBox1 Then .Range("F" & lig + 1) = True 'VRAI seulement si la case est cochée
End If
End With
End Sub