premierjour = DateSerial(Year(Date), Month(Date), 1)
dernierjour = DateSerial(Year(Date), Month(Date) + 12, 1) - 1
With [Sh_TCD].PivotTables("Tableau croisé dynamique5")
.PivotFields("DATE").ClearLabelFilters
.PivotFields("DATE").PivotFilters.Add Type:=xlDateBetween, Value1:="" & premierjour, Value2:="" & dernierjour
Haut = premierjour - DateSerial(Year(Date), 1, 1) + 2
Bas = Date - DateSerial(Year(Date), 1, 1) + 2
Nombre = .DataBodyRange.Rows.Count - 1
[Sheet3].Range([Sheet3].Cells(Haut, Bas), [Sheet3].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(1).Resize(Nombre, 1).Cells.Value
[Sh_MEC].Range([Sh_MEC].Cells(Haut, Bas), [Sh_MEC].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(2).Resize(Nombre, 1).Cells.Value
.PivotFields("DATE").ClearLabelFilters
End With