let indices_suivants ~i ~j ~n ~m =
        myprint myverb ("Appel a la 'indices_suivants' avec Indices : i="^(string_of_int i)^" et j="^(string_of_int j)^" ! et avec Indices : n="^(string_of_int n)^" et m="^(string_of_int m)^" !");
        (* On a k_courant = i + j*m, on aura k_suivant = k_courant + 1. Deux solutions, selon qu'on est en fin de ligne ou pas.  *)
        match (i < m-1) with
        |true                -> 
                myprint myverb "\tLigne non finie : on continue d'avancer.";
                ((i + 1), j);
        |false                -> 
                myprint myverb "\tLigne finie : on monte.";
                (0, (j + 1))