alors voila le script de test marche completement grace a ton aide ToM
 je te le montre comme ca tu verras aussi ce que j'ai trouvé comme methode pour remplacer les termes que je voulais remplacer par des variables :)

merci en tous cas 

 set test {
"mouah mouah @@nick@@"
"pouet @@arg@@"
 }
 
 bind pub - !test pub_test
 
 proc pub_test {nick host hand chan arg} {
global test
putlog "depart du test"

set reply [lindex $test [rand [llength $test]]]
putlog "variable \$reply choisi par le \lindex: $reply "

if {[string first "@@nick@@" $reply] != -1 } { regsub -all "@@nick@@" $reply $nick reply }
if {[string first "@@arg@@" $reply] != -1 } { regsub -all "@@arg@@" $reply $arg reply }
putlog "variable \$reply aprés remplacement des variables: $reply "

puthelp "privmsg $chan : $reply"
return 0
 }