Macro qui ne fonctionne qu'à l'enregistrement

Bonjour à tous,

Je voudrais définir automatiquement un critère de validation pour une cellule.

Lorsque j'enregistre manuellement la macro, voici le code obtenu :

Public Sub Valid()
Range("A16").Select
With Selection.validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=SI(NB.SI(CHOIX;A16)=0;CHOIX;INDIRECT(A16))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Jusque là pas de problème, ma cellule prend bien en compte le critère de validation.


Par contre, lorsque j'essaie de relancer la macro, (sans avoir modifié un seul caractère du code),
j'obtiens le message d'erreur suivant : "erreur d'éxécution 1004. Erreur définie par l'application ou par l'objet"
et ma ligne de formule "Add Type...." est en surbrillance.


Je ne comprend pas pourquoi la macro fonctionne au moment de l'enregistrement et pas en la relançant après...



Merci de m'éclairer...