Décaler la macro à chaque lancement (macro assez simple en elle-même)

Bonjour,

La demande a peut-être déjà été formulée mais je ne trouve pas les bons mots clefs pour la trouver...

Je débute en macro et je viens d'en enregistrer une. Pour faire simple cette dernière me permet de copier coller valeur la cellule A1, C1 et E1, d'actualiser les liens (autre fichier excel) puis d'actualiser les calculs (F9). Jusqu'ici tout va bien.

Mon problème : lorsque je veux relancer la macro j'aimerais qu'elle refasse tout mais sur les cellules A2, C2 et E2 et ce ainsi de suite à chaque fois que je compte la lancer.

Merci beaucoup pour votre aide 🙂

Si cela peut aider voici ce que la macro enregistre :

Sub D2DUpdate()
'
' D2DUpdate Macro
'

'
Range("D53").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G53").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J53").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M53").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P53").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("S53").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("V53").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Y53").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.UpdateLink Name:= _
"C:\XXX\Mon fichier.xls" _
, Type:=xlExcelLinks
Calculate
End Sub