Comment attacher une Liste déroulante à une cellule Excel en vb.net ?

Bonjour
Mon problème est le suivant:
je voudrai avoir une liste déroulante dans une cellule excel...
avec bout de code via vb.net 2005
j'ai excel 2007 ou 2003(les deux)

Autrement je veux faire le meme travail manuel suivant avec un bout de code

Je vais dans le menu Données \ validation
Comme critère de validation, dans la combo Autoriser, je prends le choix Liste et en source je tapes (je le choisi)
merci

avec VSTO ?

Bonjour
Merci à votre réponse mais je n'ai pas trouvé la solution.
j'ai essayer avec le bout de code suivant:

With xlSheet.Range("G9").Validation
.Add(Excel.XlDVType.xlValidateWholeNumber, AlertStyle:=Excel.XlDVAlertStyle.xlValidAlertStop, _
Operator:=Excel.XlFormatConditionOperator.xlBetween, Formula1:=Excel.XlFormatConditionType.xlCellValue = "10", _
Formula2:=Excel.XlFormatConditionType.xlCellValue = "100")
.IgnoreBlank = True
.InCellDropdown = True
.ErrorMessage = "La valeur doit être comprise entre 10 et 100"
.ShowInput = True
.ShowError = True
End With
mais tjours j'ai une faute.