2 before doubleclick

Private Sub Worksheet_BeforeDoubleClick

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Plage As Range
    Dim Plage1 As Range
    
   Set Plage = Range("A1:L7")
    
 If Application.Intersect(Target, Plage) Is Nothing Then
   Else
     Action
   End If
   
 Set Plage1 = Range("A77:J87")
If Application.Intersect(Target, Plage1) Is Nothing Then
   Else
      Action1
   End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:L7")) Is Nothing Then Action
If Not Application.Intersect(Target, Range("A77:J87")) Is Nothing Then Action1

End Sub