Macro de tri sur plage variable

[océanne]

Bonjour le forum,

Lorsque j'enregistre ma macro via l'enregistreur, quand bien même je me déclare en références rélatives, les plages de cellules restent figées (plus bas "A1: A13" ou encore plus bas "A1: D13")
L'idée c'est que je puisse toujours appliquer les mêmes critéres de tri, sur une plage de cellule que j'ai au préalable selectionnée manuellement toujours dans les colonnes concernées (colonnes A à D), mais jamais sur les mêmes lignes et malheureusement je n'y parviens pas.
Ci-dessous le bout de code en question.

ActiveWorkbook.Worksheets("Perspective MVTS AD 2012'").Sort.SortFields.Clear
'ActiveWorkbook.Worksheets("Perspective MVTS AD 2012").Sort.SortFields.Add Key _
':=ActiveCell.Offset(0, 3).Range("A1:A13"), SortOn:=xlSortOnValues, Order:= _
'xlDescending, DataOption:=xlSortNormal
'ActiveWorkbook.Worksheets("Perspective MVTS AD 2012").Sort.SortFields.Add Key _
':=ActiveCell.Offset(0, 2).Range("A1:A13"), SortOn:=xlSortOnValues, Order:= _
'xlAscending, DataOption:=xlSortNormal
'With ActiveWorkbook.Worksheets("Perspective MVTS AD 2012").Sort
'.SetRange ActiveCell.Range("A1: D13")
'.Header = xlGuess
'.MatchCase = False
'.Orientation = xlTopToBottom
'.SortMethod = xlPinYin
.Apply

Merci pour votre aide.
O.