Sub test_OK()
Debut = InputBox("Date début?", "Début", CDate("1/" & Month(Date)))
Fin = InputBox("Date Fin?", "Début", DateAdd("d", -1, DateAdd("m", 1, Debut)))
ActiveWorkbook.SlicerCaches("ChronologieNative_Date").TimelineState.SetFilterDateRange Debut, Fin
End Sub