Bug macro decalage copier coller

[YGGYPOP]

Bonjour à tous,

Fichier disponible dans le lien WETRANSFER :
https://we.tl/t-WmVpt9a9c4


J'ai une macro toute bête qui me permet, en cliquant sur un bouton (BOUTON COPIER / COLLER dans onglet MISE A JOUR), de copier coller une ligne présent dans un onglet ("ONGLET 1" vers un autre onglet ("ONGLET 2") tout en insérant une ligne. (voir fichier en PJ : "COPIER COLLER AVANT MODIF").

Aujourd'hui, je souhaite modifier mon fichier et ajouter quelques fonctionnalités dans l'ONGLET 2. Pour se faire, je dois insérer 2 lignes et 2 colonnes (respectivement en ligne 1 & 2 et Colonne A & B; voir PJ "COPIER COLLER AVEC LIGNE INSEREE. Les cellules en Jaunes doivent rester vides).

Quand je modifie la macro en décalant des cellules renseignées; je n'arrive pas au résultat espéré.

Ci-après la macro originale :
------------------------

Sub CopierColler()

'copier coller tarifs + ouvertures fermetures dans onglet sales chart : réinitialisation changements

Sheets("ONGLET 1").Activate

Range("D32:BMD45").Select
Selection.Copy

Range("D62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

'copier coller cales dans onglet changements de cales

Range("C32").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

Sheets("ONGLET 2").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown

Range("A4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TODAY()"

Range("A4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


Rows("5:5").Select
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False



Sheets("ONGLET 1").Select


Calculate

End Sub

--------------------------------
en ajoutant les 2 lignes et les 2 colonnes, ci-après la nouvelle macro (celle qui ne marche plus... et ne décale pas comme espéré :


Sub CopierColler()

'copier coller tarifs + ouvertures fermetures dans onglet sales chart : réinitialisation changements

Sheets("ONGLET 1").Activate

Range("D32:BMD45").Select
Selection.Copy

Range("D62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

'copier coller cales dans onglet changements de cales

Range("C32").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

Sheets("ONGLET 2").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown

Range("C6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TODAY()"

Range("C6").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


Rows("7:7").Select
Selection.Copy
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False



Sheets("ONGLET 1").Select


Calculate

End Sub


-------------------

A votre disposition pour toute information supplémentaire et merci par avance pour votre aide,

YGGY