wrong # args: should be "LaTrace command ignoreArgs"
    while executing
"LaTrace"
    (in namespace eval "::request" script line 20)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
# Sourcer toutes les routines avant !

proc LaTrace {command ignoreArgs} {
    global ListeProc

    lappend ListeProc "[lindex $command 0]"
}

proc inittrace {} {
    set Lp [info procs]
    foreach e $Lp {
	if {$e == "LaTrace"} {continue}
	if {[regexp {^[A-Z]} $e]} {trace add execution $e enter LaTrace}
    }
    return
}

# 1er truc a faire dans le programme

LaTrace

# .... on fait ce qu'on veut 

# A la fin : 

global ListeProc

set ListeProc [lsort -unique $ListeProc]
set f [open "test.tcl" w]
foreach e $ListeProc {
    set a [info args $e]
    set b [info body $e]
    puts $f "proc $e {$a} {"
    puts $f $b
    puts $f "}"
    puts $f ""
}

exit


######Ca finit ici