Incrémenter la selection des colonnes

[LoLo]

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

 

[Emmanuelle]

Est-ce que ta variable "col" marche bien !
Je crois qu'il ne faut pas mettre E mais 5 (pour dire 5ème colonne) mais je ne suis pas sûre dutout !
J'espère que j'aurais pu t'aider !