Déplacement d'une plage

Bonjour en macro ça donne:

  Dim i As Integer, j As Integer
  For i = 1 To 4
    For j = 1 To 4
      Cells(i, j + 4) = Cells(i, j)
    Next
  Next

ou

  Range("A1:D4").Copy
  Range("E1").Select
  ActiveSheet.Paste

ou

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim a
  a = Range("A1:E4")
  Range("E1:h4") = a
End Sub

A+ François

Bonsoir à vous,
Merci de votre réponse, mais cela ne semble pas correspondre à ce que je voulais. Néophyte, je me suis probablement mal exprimé. Je vais donc essayer de l'expliquer autrement :
Voici les lignes codes d'une cellule que je déplace latéralement, quelque soit la cellule que je choisis au départ :

Sub Macro1()
'
' Macro1 Macro

Selection.Copy
ActiveCell.Offset(0, 5).Select
ActiveSheet.Paste
End Sub

Tout simplement, je voudrai faire la même chose, mais pour une plage de cellule, plage que je ne serai pas obligé de nommer.
J'ai commencé la ligne de code suivante, cela marche, mais c'est le déplacement de la sélection que je n'arrive pas à faire :

Sub TTT()
'
' TTT Macro
'
ActiveCell.Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
'C'EST AU NIVEAU SUIVANT QUE CELA "COINCE"
("offset(0,7)").Select
'ActiveSheet.Paste
' Range("AX1").Select
'ActiveSheet.Paste
End Sub