proc Xml_Prologue {{Commentaire ""}} {
    lappend LX "<?xml version=\"1.0\"?>"
    lappend LX ""
    if {$Commentaire!=""} {
	lappend LX "<!-- $Commentaire -->" 
	lappend LX ""
    }
    return [join $LX "\n"]
}

proc Xml_BAC {Balise {LesAttVal ""} {Contenu ""}} {
    set BalAtt "<$Balise"
    foreach {Attribut Valeur} $LesAttVal {
	append BalAtt " $Attribut=\"$Valeur\""
    }
    if {$Contenu==""} {
	append BalAtt "/>"
	return BalAtt
    } else {
	append BalAtt "\n"
	append BalAtt $Contenu
	append BalAtt "\n"
	append BalAtt "</$Balise>"
	return $BalAtt
    }
}