Matrice MatLire(FILE *Fid, int NbLig, int NbCol)
{
  int i,j,val;
  Matrice Mat;

  Mat = MatAllouer (NbLig, NbCol);
  if (Mat == NULL) return NULL;

  for (i=0; i<NbLig; i++)
    {
      for (j=0; j<NbCol; j++)
	{
	  fscanf (Fid, "%d", &val);
	  Mat [i][j] = val;
	}
    }
    return Mat;
}