Sub Macro1()
'soit tu agis sur la cellule active soit tu la définis au préalable
Range("I12").Select 'à adapter voire supprimer si tu veux agir sur la cellule active sans la dédinir
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$1:$A$15" 'plage à adapter
End With
End Sub