Remise a zéro sur vba

bonjour,
et ça veut dire quoi "remettre les procédure à zéro"?
une variable je sais, un objet aussi, une feulle j'imagine. mais une procédure....je sais pas

Faudrait préciser ...

A+

Nan je me suis enballer!!!
je vais prendre mon problème dans un autres sens
j'aimerais faire apparaitre une liste déroulante automatiquement sous excel

par ex
si en A1 il y a "bonjour"
alors en B1 faire apparaitre une liste déroulante

sub essai()
if cells(1,1)="bonjour" then
cells(1,2)=liste déroulante
dans cette liste déroulante je marquerais sous vba
"vous etes poli"
"merci"
comme cela sous excel j'aurai le chois entre merci et vous etes poli

avec l'enregistreur de macro d'excel j'obtient cela mais cela mais impossible a travailler surtout au niveau de la plage de cellule "=$F$5:$F$11" que j'aimerais quelle soit dans la feuille 2
Sub Macro2()
Range("A2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$F$5:$F$11"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
merci de m'aider

bonjour,
après explication, c'est plus clair !!!

Sub test()
'
' nomme la liste cela t'évitera d'autres problème
'premièrement nommer la plage de la liste

Sheets("feuil2").Range("F5:F11").Name = "Ma_Liste" 'je nomme la liste en feuille 2 plage F5 : F11

Sheets("Feuil1").Select ' je suis sur la feuille 1 en B1
Range("b1").Select
'on teste
If [A1].Value = "bonjour" Then

' En gras la partie importante que te donne l'enregistreur

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ma_liste" .IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Else
'on retire la liste
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With

End If

C'est ce que tu voulais?

End Sub

nikel cela marche impec
je te remercie