Code :
1.Sub Macro8()
2.
3.'lire les dates
4.
5.Dim dat1#, dat2#, plage As Range
6.
7.Sheets("page destination" ).Select
8.
9.
10.dat1 = CDbl(Cells(5, 4))
11.
12.dat2 = CDbl(Cells(5, 6))
13.
14.
15.D = Sheets("page destination" ).UsedRange.Rows.Count
16.If D > 10 Then
17.Range(Cells(11, 1), Cells(D, 24)).Clear
18.End If
19.
20.
21.'filtrer
22.Sheets("page input" ).Select
23.
24.c = Sheets("page input" ).UsedRange.Rows.Count
25.Application.ScreenUpdating = False
26.Sheets("page input" ).AutoFilterMode = False
27.Set plage = Range("A7", [I65536].End(xlUp))
28.plage.AutoFilter 9, ">=" & dat1, xlAnd, "<=" & dat2
29.plage.Copy
30.
31.Sheets("page destination" ).Select
32.Range("a11" ).Select
33.plage.PasteSpecial xlPasteFormats
34.plage.PasteSpecial Paste:=xlPasteValues
35.
36.
37.Call macro9
38.Sheets("page destination" ).Select
39.Range("a11" ).Select
40.
41.
42.End Sub
43.
44.Sub macro9()
45.Sheets("page input" ).Select
46.Range("a1:x6" ).Activate
47.Sheets("page input" ).EnableAutoFilter = True
48.Range("a7" ).Select
49.
50.End Sub