Set v=CreateObject("WScript.Shell")
dim color
dim nbmsg

color = Array("red","blue","yellow","purple","orange","green","pink","purple","black")

Dim max,min,r
max=UBound(color)
min=0

dim arraymsg()

nbmsg=inputbox("Nombre de messages : ")

ReDim arraymsg(CInt(nbmsg))


For i = 0 To UBound(arraymsg)-1
  arraymsg(i)=inputbox("Message "+Cstr(i+1)+" : ")
  arraymsg(i)=Replace(arraymsg(i),"+","{+}")
Next

nb = inputbox ("Nombre de répétitions (minimum 5 recommandés) : ")
wscript.sleep 1000

dim finalmsg
finalmsg=""

For j = 1 To nb
  finalmsg=""
  For i = 0 To UBound(arraymsg)-1
    r=Int((max-min+1)*Rnd+min)
    finalmsg=finalmsg+"["+color(r)+"] "+arraymsg(i)+" [/"+color(r)+"]" +"  "
  Next
  v.SendKeys(finalmsg)
  wscript.sleep 100*UBound(arraymsg)-1
  v.SendKeys("~")
Next