settab[@tab,0,1309,1310,1311,1312,1313];
i=0;
La:setstring[@spectre2D,"tol",tab#i,".2Du"];
setstring[@fichier,"c:\programmation\TraitementSpectres_DEV\dataTEST\",spectre2D$];
openspectre[2,fichier$,spectre2D$];
i=i+1;
if i<5 then La;