Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A3:A4"), Target) Is Nothing And Target.Count = 1 Then
If Target.Row = 3 Then
MsgBox "choisir une date"
Else
Range("E1:E7").Select
End If
End If
End Sub