TextBox15.Value = GetSetting("Mes paramètres", "TextBox15", "valeur TextBox15")
compteur = CByte(TextBox15.Value)
TextBox16.Value = GetSetting("Mes paramètres", "TextBox16", "valeur TextBox16")
mcompteur = CByte(TextBox16.Value)
TextBox17.Value = GetSetting("Mes paramètres", "TextBox17", "valeur TextBox17")
dcompteur = CByte(TextBox17.Value)
TextBox18.Value = GetSetting("Mes paramètres", "TextBox18", "valeur TextBox18")
vcompteur = CByte(TextBox18.Value)