Trier plusieurs colonnes independamment l une de l autre

Bonsoir tout le monde
Je voudrais simplifier une de mes macros
Pour trier 30 colonnes indépendamment l une de l autre

Je note pour la colonne A
Columns("A:A").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Puis pour la B

Columns("B:B").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

ETC....
Ca fonctionne , mais me parait cochon!!! comme écriture


Comment boucler sur ces 30 colonnes?
pour raccourcir cette macro qui n en fini pas........

Merci pour tout d'avance
Très bonne soirée
E et F