SOS

[Babytigrou16]

ici

tclcopier

foreach connus $saloni {
   if { ($arg1 == "off") && ($salon != "") && [string match -nocase $connus $salon] } {
    if {[array exists countsossalon]} {
        unset countsossalon
    }
    foreach run [array names sossalon] {
        foreach r $sossalon($run) {
            if {[info exists countsossalon($r)]} {
                incr countsossalon($r)
            } else {
                set countsossalon($r) 1
            }
        }
    }

Si tu regarde plus haut ... elle es seulement bien cacher :D