[COLOR="DarkSlateGray"][B]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D25:D10000")) Is Nothing Then
[COLOR="Sienna"]'
'première procédure
'[/COLOR]
Exit Sub
End If
[COLOR="Sienna"]'[/COLOR]
If Not Intersect(Target, Range("N25:N10000")) Is Nothing Then
[COLOR="Sienna"]'
'deuxième procédure
'[/COLOR]
End If
End Sub[/B][/COLOR]