Bonjour,
Une autre proposition vu ta version Excel qui semble être 2007.
Les données ont été mises sous forme de tableau et on utilise un tableau croisé dynamique pour obtenir les résultats.
Cdlt.
Public Sub Filter_Data()
Dim pt As PivotTable
Dim lStartDate As Date, lEndDate As Date, lDate As Date
Dim pi As PivotItem
Dim tbl
With Worksheets("TCD")
Set pt = .PivotTables(1)
lStartDate = .[E1]
lEndDate = .[E2]
End With
pt.ClearAllFilters
pt.ManualUpdate = True
pt.PivotFields("Date").EnableItemSelection = True
For Each pi In pt.PivotFields("Date").PivotItems
tbl = Split(pi.Value, "/")
lDate = DateSerial(tbl(2), tbl(0), tbl(1))
If lDate < lStartDate Or lDate > lEndDate Then
pi.Visible = False
End If
Next
pt.ManualUpdate = False
End Sub