XL 2019 probleme dans une macro

bonjours ,j'ai un probleme et ne trouve pas comment y remédié. j'ai une erreur lors du lancement d'une macro . l'erreur se surligne en jaune de"
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=liste_ingrédients"



Range("A7:A22").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=liste_ingrédients"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
Calculate
Range("A7").Select
End Sub