Bonsoir tactic6, 
Bonsoir Didier

Je ne suis pas certain d'avoir compris ce que tu veux faire (je n'ai pas tout décortiqué) : créer une image "partielle" de la feuille "saisie" vers la feuille "archive" ET au même emplacement ?  Si c'est cela, je regarderai du côté des "tableaux", comme ceci :

Sub tableau_plage()
  Dim P1
  P1 = Feuil1.Range("B15:C129").Value
  Feuil2.Range("B15:C129").Value = P1    ' on pourrait écrire :       Feuil2.Range("B300:C414").Value = P1
  P2 = Feuil1.Range("H15:K129").Value
  Feuil2.Range("H15:K129").Value = P2
End Sub

Une autre idée :

Sub Copie()
  '  Range("b1:c1", "f1:j1").Copy Range("B" & ActiveCell.Row - 1)
  '  Range("G1", "J1").Copy Range("B" & ActiveCell.Row)
End Sub

Il restera à traiter les cellules éparses.

A toi d'adapter

Eric