slectionner une ligne d'après la cellule selectionnée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'atteindre l'ouvrage en double cliquant
  If Not Intersect([D34:BR69], Target) Is Nothing And Target <> "" Then
    Set p = Application.Index([Base], , 1).Find(What:=Target, LookAt:=xlWhole)
    If Not p Is Nothing Then
      Application.Goto p
p.EntireRow.Select
    End If
  End If
  Cancel = True  
End Sub