Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[COLOR="Red"]ecris ton code ici[/COLOR]
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('[COLOR="Blue"]A1[/COLOR]')) Is Nothing Then
With Target
[COLOR="blue"]ton code[/COLOR]
end with
End If