function CreeListFromHtml(Bod, List, Doc, PremierElem, MemoHtml) {
	var Root ="", Ts, T, LC, D1, D2, Titre, S
  List = new ListNodObj()
	if (PremierElem) {
  	List.Add ('Root', PremierElem)
  	Root = "Lien=Root|"
  }
  Ts = LTags(Bod,"TABLE");  //alert("T=" + Ts.length)
  if (!Doc && ie)  Doc = Bod.document
  for (var i=0; i<Ts.length; i++) {
  	T = Ts[i];  //alert(Lout(T))
  	if (!BonTableau2(T))  continue
  	TR = T.rows[0]
  	Titre = LText(TR.cells[0]);  D1 = LText(TR.cells[1]);  D2 = LText(TR.cells[2]);  //alert(D1 + ", " + D2 + ", " + Titre)
	  nod = List.Add (i, Titre, Root + "DatDeb=" + D1 + "|DatFin=" + D2)
	  if (MemoHtml) {
			D2 = LID("MenuFlot");  O = D2.firstChild
			Div = document.createElement("div")
	  	MoveCodeHtml(T, Div)
		  S = Doc.location.pathname;  S = FicPartie(S,"Path") + "/"
	  	var Imgs = LTags(Div,"imagedata");  for (var j=0; j<Imgs.length; j++) {  Imgs[j].src = S + Imgs[j].src  }
	  	nod.Div = Div;  //alert(nod.Div.innerHTML)
	  }
  }
  return List
}

function MoveCodeHtml(ElemPrem, DivD) {
  // Déplace le code Html à partir de ElemPrem jusqu'à élément ciblé suivant
  var Div
  var O = ElemPrem;  if (!O || !ie)  return
  O = O.nextSibling
  Div = O.document.createElement("div")
  while (O && !BonTableau2(O)) {
    Div.insertAdjacentHTML("AfterBegin", O.outerHTML)
    O = O.nextSibling
  }
  DivD.innerHTML = Div.innerHTML
}

function SupprCodeHtml(Tsup, nbsup) {
	var T, O
	for (var i=0; i<nbsup; i++) {
		T = Tsup[i]
		while ((O = T.nextSibling) && !BonTableau2(O)) {
			RMNod(O)
		}
		RMNod(T)
	}
}

function BonTableau2(T) {
	return (T.tagName=="TABLE" && T.rows.length==1 && T.rows[0].cells.length==3)
}