Function Test(Data_WH)
	'Balayage de la table de données
	'3 ème dimmension sert à différencier les DATA des résultats
	'(x,x,0) => DATA /// (x,x,1) => résultats
	For i = 0 to UBound(Data_WH,1)
		For j= 0 to 9
			If j = 0 Then 'Colonne des années
				Data_WH (i,j,0) = Data_WH (i,j,1)
			else If j = 1 then'Colonne des euros
				If Table_1(i,j,0) < 50000 then
					Data_WH (i,j,1) = "Coût trop faible"
				else if Table_1(i,j,0) > 10000000 then 
					Data_WH (i,j,1) = "Coût trop elevé"
				else
					Data_WH(i,j,1) = "OK"
				End if 
			else If j = 2 then 'Colonne des compte C6
				If InStr(Data_WH(i,j,0),";")<>0 Then
					Data_WH(i,j,1) = "Plusieurs Compte F"
				else 
					Data_WH(i,j,1) = "OK"
				End if
			else if j = 3 then 'Colonne FEM
				If InStr(Data_WH(i,j,0),";")<>0 Then
					Data_WH(i,j,1) = "Plusieurs FEM"
				else 
					Data_WH(i,j,1) = "OK"
				End if
			else if j = 4 then 'Nb de jour de chantier
				if Table_1(i,j,0) > 220 then 
					Data_WH (i,j,1) = "Chantier générant plus de 220 jours de chantier"
				else
					Data_WH(i,j,1) = "OK"
				End if 
			else if j = 5 then 'Minutes perdues Voie Unique
				if Table_1(i,j,0) > 5 then 
					Data_WH (i,j,1) = "Chantier générant plus de 5 minutes de retard sur voie unique"
				else
					Data_WH(i,j,1) = "OK"
				End if
			else if j = 6 then 'Minutes perdues Voie 1
				if Table_1(i,j,0) > 5 then 
					Data_WH (i,j,1) = "Chantier générant plus de 5 minutes de retard sur voie 1"
				else
					Data_WH(i,j,1) = "OK"
				End if
			else if j = 7 then 'Minutes perdues Voie 2
				if Table_1(i,j,0) > 5 then 
					Data_WH (i,j,1) = "Chantier générant plus de 5 minutes de retard sur voie 2"
				else
					Data_WH(i,j,1) = "OK"
				End if 
			else if j = 8 then 'Minutes perdues Voie Autre
				if Table_1(i,j,0) > 5 then 
					Data_WH (i,j,1) = "Chantier générant plus de 5 minutes de retard sur voie Autres"
				else
					Data_WH(i,j,1) = "OK"
				End if 
			End if
		Next j
	Next i