Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nb, i As Long, dat() As Date
If Target.NumberFormat Like "*/*/*" Then
Cancel = True
nb = InputBox("Date fin ou nombre total de jours", "Combien")
If Len(Replace(nb, "/", "")) + 2 = Len(nb) Then nb = DateValue(nb) - Target Else nb = Val(nb) - 1
ReDim dat(1 To nb, 1 To 1)
For i = 1 To nb
dat(i, 1) = Target + i
Next i
Target.Offset(1).Resize(nb) = dat
Target.Offset(1).Resize(nb).NumberFormat = Target.NumberFormat
End If
End Sub