Range en présence d'une variable en colonne

Bonjour,

J'ai un problème dans mon programme je n'arrive pas à déclarer ma colonne dans Range.
Je récupère ma colonne dans une zone de texte (une lettre) et je veux selectionner la colonne choisit.
Je sais pas si je suis très claire... :S
J'ai récupérer la dernière ligne du tableau qui s'appelle lig
Mais après c'est la catastrophe:

col = TextBox1.Value
Range("a1").Select

Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
lig = ActiveCell.Row
Loop
lig = lig - 1
col = col & "2:" & col & lig
Set d = Worksheets("patient").Range("col")