XL 2010 code VBA

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

Sub InsererDates()
Dim deb$, fin$, h&
While Not IsDate(deb)
    deb = InputBox("Date de début :", , deb)
    If deb = "" Then Exit Sub
Wend
While Not IsDate(fin)
    fin = InputBox("Date de fin >= " & CDate(deb) & " :", , fin)
    If fin = "" Then Exit Sub
    h = CDate(fin) - CDate(deb) + 1
    If h <= 0 Then fin = ""
Wend
ActiveCell.Resize(h).Insert xlDown
ActiveCell = CDate(deb)
ActiveCell.Resize(h).DataSeries
End Sub