Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D3:E1000")) Is Nothing Then
If Target.Count > 1 Then Exit Sub ' pour éviter la sélection de plus d'une cellule
If Target.Column = 4 Or Target.Column = 5 Then Calendrier1.Show
If date2 > 0 Then
Target.Value = date2
End If
If Intersect(Target, Range("F3:F700")) Is Nothing Then Exit Sub
choixresp.Show
End If
End Sub