Incrémenter la selection des colonnes

Je souhaite avoir la possibilité de modifier la zone prise en compte
par un menu déroulant. J'arrive à faire la selection des lignes que je souhaite mais je n'arrive pas à faire de même pour les colonnes.
Ici je selectionne la colonne "D" mais je souhaite que celle selectionnée soit la colonne correspondant à la valeur contenue dans 'col'


Merci d'avance pour votre aide...


lign = 5

col = Cells(26, "E") + 2

nb_lign = 1
Do
nb_lign = nb_lign + 1
Loop While Cells(nb_lign, col) = ""

ActiveSheet.Shapes("Drop Down 2").Select
With Selection
.ListFillRange = "$D$" & lign & ":$D$" & lign + nb_lign
.LinkedCell = "$B$22"
.DropDownLines = 8
.Display3DShading = True
End With
Cells(1, 1).Select