validation sur une feuille avec données sur une autre

-----Message d'origine-----
bonjour

jai mis en place des validations en vba dans une
feuille . mais mes données

sources doivent etre obligatoirement sur une autre
feuille. or apparament les

données source d'une validation doivent etre sur la
même feuille

y a t-il une solution à ce problème

voici le code avec les données sources sur feuille dans
laquelle est écrit

le programme

Cells(Target.Row, 8).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList,
AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="1,2,3,4,5,6,7,8,9"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Cells(Target.Row, 2).Select

End If
End If



comment allez chercher les données 1,2.. sur une autre
feuille

cordialement

.

-----Message d'origine-----
bonjour

jai mis en place des validations en vba dans une
feuille . mais mes données

sources doivent etre obligatoirement sur une autre
feuille. or apparament les

données source d'une validation doivent etre sur la
même feuille

y a t-il une solution à ce problème

voici le code avec les données sources sur feuille dans
laquelle est écrit

le programme

Cells(Target.Row, 8).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList,
AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="1,2,3,4,5,6,7,8,9"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Cells(Target.Row, 2).Select

End If
End If



comment allez chercher les données 1,2.. sur une autre
feuille

cordialement

.