Sub Validation()
With Range("A1:A20").Validation
.Delete
.Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="0", Formula2:="24"
.ErrorMessage = "Merci de saisir un nombre décimal entre 0 et 24"
End With
End Sub