TempsReglage = math.max(TempsReglage, 5)
Integer.TryParse( Tache.Zone_Configurable_1, TempsReglage )
dim NumCouleur as integer = Math.Abs(Chaine.GetHashCode()) mod 126 + 1