J'ai 200 colonnes à trier

Bonjour,
j'ai environ 200 colonnes à trier sur une feuille Excel.
J'utilise une macro VBA pour cela.
je dois avancer d'une colonne après chaque tri et pour cela j'utilise le " Range(row(x) ,col(y)) "

mais la macro donne une erreur sur la ligne :
ActiveWorkbook.Worksheets("save").Sort.SortFields.Add Key:=Range(Cells(lignea, cola)), _

Voici le début de la macro :

Dim lignea
Dim cola
Dim ligneb
Dim colb
lignea = 3
cola = 11
ligneb = 7
colb = 11
' Range("K3:K7").Select
Range(Cells(lignea, cola), Cells(ligneb, colb)).Select
ActiveWorkbook.Worksheets("save").Sort.SortFields.Clear
' ActiveWorkbook.Worksheets("save").Sort.SortFields.Add Key:=Range("K3"),
ActiveWorkbook.Worksheets("save").Sort.SortFields.Add Key:=Range(Cells(lignea, cola)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

meilleures salutations.