Sub a_tous()
Const XLD$ = "http://www.excel-downloads.com/forum/members/"
Const TMW$ = "077101114099105"
Dim mArr, strR$, tp$, z$, TEF$, mica&, cami&
mArr = Split("dugenou²kjin²skoobi²efge²hoerwind²jnp²pierrot93²jcgl²tototiti2008²mj13²brunom45²tibo²carcharodon-carcharias²modeste²brigitte²david84", "²")
For mica = 0 To UBound(mArr)
tp = tp & XLD & mArr(mica) & ".html" & vbCrLf
Next mica
z = StrConv(Split(Split(Split(tp, vbCrLf)(Int(Rnd * 11) + 1), "/")(5), ".")(0), vbProperCase)
For cami = 1 To Len(TMW) Step 3
TEF = TEF & Chr(Mid(TMW, cami, 3) * 1 + 1 - 1 + 2 - 2 + 3 - 3)
Next cami
MsgBox TEF & Space(2) & z
End Sub