Dim ListeTeintes_Prec as new System.Collections.Generic.List(of String)()
ListeTeintes_Prec.add(TachePrecedente.Information_Process(3).Zone_Configurable_1)
...
ListeTeintes_Prec.add(TachePrecedente.Information_Process(3).Zone_Configurable_6)
if ListeTeintes_Prec.contains(Teinte1) then
...
end if
For Each Teinte As String In ListeTeintes_Prec
...
Next