Re,
J'ai pu réglé mon problème avec cela.
Sub alltimelines()
Dim fromdate As Variant
Dim todate As Variant
'controlling timeline
fromdate = ActiveWorkbook.SlicerCaches("NativeTimeline_Dates").TimelineState.FilterValue1
todate = ActiveWorkbook.SlicerCaches("NativeTimeline_Dates").TimelineState.FilterValue2
'shadow timeline(s)
ActiveWorkbook.SlicerCaches("NativeTimeline_Dates1").TimelineState.SetFilterDateRange fromdate, todate
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Call alltimelines
End If
End Sub