Pb macro comment sauvegarder les dates antérieures

Bonjour,

Je viens de mettre en place une macro qui reprend des données mise à jour d'un tableau croisé dynamique et qui les insére dans mon tableau par acheteur référent. Cela fonctionne mais, comme l'info est journalière, la macro ne garde pas les dates antérieures. Voilà mon problème.

Pouvez-vous m'aider ?

Merci par avance

Voici ma vba :

Sub TraitementDA()
'
' TraitementDA Macro
'

'
    Range("B6").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    Rows("22:22").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("23:23").Select
    Selection.Copy
    Rows("22:22").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A22").Select
    ActiveCell.FormulaR1C1 = "=R[-16]C[11]"
    Range("B6:J6").Select
    Selection.Copy
    Range("B22").Select
    ActiveSheet.Paste
    Range("L22").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[-16]C"
    Range("M23:M25").Select
    Selection.AutoFill Destination:=Range("M22:M25"), Type:=xlFillDefault
    Range("M22:M25").Select
    Range("N23:N25").Select
    Selection.AutoFill Destination:=Range("N22:N25"), Type:=xlFillDefault
    Range("N22:N25").Select
    Range("O23:O25").Select
    Selection.AutoFill Destination:=Range("O22:O25"), Type:=xlFillDefault
    Range("O22:O25").Select
    Range("P23:P25").Select
    Selection.AutoFill Destination:=Range("P22:P25"), Type:=xlFillDefault
    Range("P22:P25").Select
    Range("Q23:Q25").Select
    Selection.AutoFill Destination:=Range("Q22:Q25"), Type:=xlFillDefault
    Range("Q22:Q25").Select
    Range("R23:R25").Select
    Selection.AutoFill Destination:=Range("R22:R25"), Type:=xlFillDefault
    Range("R22:R25").Select
    Range("K26").Select
    ActiveWindow.SmallScroll Down:=12
    Rows("42:42").Select
    Selection.Delete Shift:=xlUp
    Range("A44").Select
    ActiveWindow.SmallScroll Down:=18
    Rows("49:49").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("50:50").Select
    Selection.Copy
    Rows("49:49").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A49").Select
    ActiveCell.FormulaR1C1 = "=R[-42]C[11]"
    Range("L49").Select
    ActiveCell.FormulaR1C1 = "=R[-42]C"
    Range("B7:J7").Select
    Selection.Copy
    Range("B49").Select
    ActiveSheet.Paste
    Range("M50:M52").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("M49:M52"), Type:=xlFillDefault
    Range("M49:M52").Select
    Range("N50:N52").Select
    Selection.AutoFill Destination:=Range("N49:N52"), Type:=xlFillDefault
    Range("N49:N52").Select
    Range("O50:O53").Select
    Range("O53").Activate
    Selection.AutoFill Destination:=Range("O49:O53"), Type:=xlFillDefault
    Range("O49:O53").Select
    Range("P50:P52").Select
    Selection.AutoFill Destination:=Range("P49:P52"), Type:=xlFillDefault
    Range("P49:P52").Select
    Range("Q50:Q52").Select
    Selection.AutoFill Destination:=Range("Q49:Q52"), Type:=xlFillDefault
    Range("Q49:Q52").Select
    Range("R50:R52").Select
    Selection.AutoFill Destination:=Range("R49:R52"), Type:=xlFillDefault
    Range("R49:R52").Select
    Range("K56").Select
    ActiveWindow.SmallScroll Down:=18
    Rows("69:69").Select
    Selection.Delete Shift:=xlUp
    Range("A72").Select
    ActiveWindow.SmallScroll Down:=6
    Rows("77:77").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("78:78").Select
    Selection.Copy
    Rows("77:77").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A77").Select
    ActiveCell.FormulaR1C1 = "=R[-71]C[11]"
    Range("L77").Select
    ActiveCell.FormulaR1C1 = "=R[-71]C"
    Range("B8:J8").Select
    Selection.Copy
    Range("B77").Select
    ActiveSheet.Paste
    Range("M78:M81").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("M77:M81"), Type:=xlFillDefault
    Range("M77:M81").Select
    Range("N78:N81").Select
    Selection.AutoFill Destination:=Range("N77:N81"), Type:=xlFillDefault
    Range("N77:N81").Select
    Range("O78:O81").Select
    Selection.AutoFill Destination:=Range("O77:O81"), Type:=xlFillDefault
    Range("O77:O81").Select
    Range("P78:P81").Select
    Selection.AutoFill Destination:=Range("P77:P81"), Type:=xlFillDefault
    Range("P77:P81").Select
    Range("Q78:Q81").Select
    Selection.AutoFill Destination:=Range("Q77:Q81"), Type:=xlFillDefault
    Range("Q77:Q81").Select
    Range("R78:R82").Select
    Selection.AutoFill Destination:=Range("R77:R82"), Type:=xlFillDefault
    Range("R77:R82").Select
    Range("K83").Select
    ActiveWindow.SmallScroll Down:=18
    Rows("97:97").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=9
    Rows("104:104").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("105:105").Select
    Selection.Copy
    Rows("104:104").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A104").Select
    ActiveCell.FormulaR1C1 = "=R[-98]C[11]"
    Range("L104").Select
    ActiveCell.FormulaR1C1 = "=R[-98]C"
    Range("B9:J9").Select
    Selection.Copy
    Range("B104").Select
    ActiveSheet.Paste
    Range("M105:M107").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("M104:M107"), Type:=xlFillDefault
    Range("M104:M107").Select
    Range("N105:N107").Select
    Selection.AutoFill Destination:=Range("N104:N107"), Type:=xlFillDefault
    Range("N104:N107").Select
    Range("O105:O107").Select
    Selection.AutoFill Destination:=Range("O104:O107"), Type:=xlFillDefault
    Range("O104:O107").Select
    Range("P105:P107").Select
    Selection.AutoFill Destination:=Range("P104:P107"), Type:=xlFillDefault
    Range("P104:P107").Select
    Range("Q105:Q107").Select
    Selection.AutoFill Destination:=Range("Q104:Q107"), Type:=xlFillDefault
    Range("Q104:Q107").Select
    Range("R105:R107").Select
    Selection.AutoFill Destination:=Range("R104:R107"), Type:=xlFillDefault
    Range("R104:R107").Select
    ActiveWindow.SmallScroll Down:=18
    Rows("124:124").Select
    Selection.Delete Shift:=xlUp
    Range("A127").Select
    ActiveWindow.SmallScroll Down:=12
    Rows("132:132").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("133:133").Select
    Selection.Copy
    Rows("132:132").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A132").Select
    ActiveCell.FormulaR1C1 = "=R[-126]C[11]"
    Range("L132").Select
    ActiveCell.FormulaR1C1 = "=R[-126]C"
    Range("B10:J10").Select
    Selection.Copy
    Range("B132").Select
    ActiveSheet.Paste
    Range("M133:M135").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("M132:M135"), Type:=xlFillDefault
    Range("M132:M135").Select
    Range("N133:N135").Select
    Selection.AutoFill Destination:=Range("N132:N135"), Type:=xlFillDefault
    Range("N132:N135").Select
    Range("O133:O135").Select
    Selection.AutoFill Destination:=Range("O132:O135"), Type:=xlFillDefault
    Range("O132:O135").Select
    Range("P133:P135").Select
    Selection.AutoFill Destination:=Range("P132:P135"), Type:=xlFillDefault
    Range("P132:P135").Select
    Range("Q133:Q135").Select
    Selection.AutoFill Destination:=Range("Q132:Q135"), Type:=xlFillDefault
    Range("Q132:Q135").Select
    Range("R133:R135").Select
    Selection.AutoFill Destination:=Range("R132:R135"), Type:=xlFillDefault
    Range("R132:R135").Select
    Range("T135").Select
    ActiveWindow.SmallScroll Down:=12
    Rows("152:152").Select
    Selection.Delete Shift:=xlUp
End Sub

Voici une copie de mon fichier