Besoin d'aide sur un TCD

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Plage As Range
  If Target.Address = "$B$5" Then
    Cancel = True
    [A9:D1000].ClearContents
    With Sheets("Feuil3")
      Set Plage = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 4)
      Plage.AutoFilter 1, Sheets("Feuil1").[B3]
      Plage.AutoFilter 4, Sheets("Feuil1").[B4]
      Set Plage1 = Plage.Offset(1).Resize(Plage.Rows.Count - 1)
      If Plage1.SpecialCells(xlCellTypeVisible).Rows.Count > 0 Then
        Plage.Copy Sheets("Feuil1").[A9]
      End If
      Plage.AutoFilter
    End With
  End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim L As Variant, C As Variant
  If Target.Address = "$B$5" Then
    Cancel = True
    With Sheets("Feuil2")
      L = Application.Match(Sheets("Feuil1").[B3], .[A:A], 0)
      C = Application.Match(Sheets("Feuil1").[B4], .[4:4], 0)
      If IsNumeric(L) Or IsNumeric(C) Then
        .Cells(L, C).ShowDetail = True
      Else
        MsgBox "Erreur dans les références"
      End If
    End With
  End If
End Sub