Macro de tri sur plage variable

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.