selection des colonnes

Je suis en train de faire un formulaire dans lequel je souhaite modifier la selection en fonction d'un choix préalable. Comment dois je modifier le listing suivant pour que cela puisse fonctionner ?
(la ligne mise en commentaire fonctionne mais ne permet pas la modification de la selection)

Sub Macro()
lign = 5
nb_lign = 3

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

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

End Sub

Merci à tous