Extraction tableau de date a date : Macro?

Sub Extraction()
Dim F As Worksheet, rep$, dat1 As Date, dat2 As Date, cel As Range, plage As Range
Set F = Sheets("Feuil1") 'à adapter
If ActiveSheet.Name <> F.Name Then Exit Sub
On Error Resume Next
1 rep = InputBox("Date de départ et date de fin séparées par un tiret" _
  & Chr(10) & Chr(10) & "Format jjj/mm/aa-jj/mm/aa :", "Extraction")
If rep = "" Then Exit Sub
Err = 0
dat1 = Split(rep, "-")(0)
dat2 = Split(rep, "-")(1)
If Err Then GoTo 1
Set plage = [A3:H3]
For Each cel In Range("I4", [I65536].End(xlUp))
If cel >= dat1 And cel <= dat2 Then Set plage = Union(Cells(cel.Row, 1).Resize(, 8), plage)
Next
Application.ScreenUpdating = False
Workbooks.Add
F.Cells.Copy Cells 'pour la dimension des colonnes
Cells.Clear
plage.Copy [A1]
'enregistrez le document si vous voulez
End Sub

Sub Extraction()
Dim F As Worksheet, rep$, dat1#, dat2#, plage As Range
Set F = Sheets("Feuil1") 'à adapter
If ActiveSheet.Name <> F.Name Then Exit Sub
On Error Resume Next
1 rep = InputBox("Date de départ et date de fin séparées par un tiret" _
  & Chr(10) & Chr(10) & "Format jjj/mm/aa-jj/mm/aa :", "Extraction")
If rep = "" Then Exit Sub
Err = 0
dat1 = CDbl(CDate(Split(rep, "-")(0)))
dat2 = CDbl(CDate(Split(rep, "-")(1)))
If Err Then GoTo 1
Application.ScreenUpdating = False
F.AutoFilterMode = False
Set plage = Range("A3", [I65536].End(xlUp))
plage.AutoFilter 9, ">=" & dat1, xlAnd, "<=" & dat2
Set plage = plage.SpecialCells(xlCellTypeVisible)
F.AutoFilterMode = False
Workbooks.Add
F.Cells.Copy Cells 'pour la dimension des colonnes
Cells.Clear
plage.Copy [A1]
[I:I].Clear
'enregistrez le document si vous voulez
End Sub