liste validation, erreur lors de l'éxécution

[christian]

bonjour à tous,

Je souhaite créer un liste de validation avec la plage nommée "Métier" dans une autre feuille.

Lors de l'éxecution, la macro plante à .Add Type et indique le message: erreur d'éxecution 1004
erreur définie par l'application ou par l'objet

Voilà ce que donne le code avec l'enregistreur de macro.

ActiveCell.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=decaler(Métier;0;0;nbval(Métier))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

merci de me renseigner
a+
christian