Function alpha(Nb As Integer)
zone = Array("48", "49", "50", "51", "52", "53", "54", "55", "56", "57", _
"65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", _
"78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90")
For i = 1 To Nb
Randomize Timer
alpha = alpha & Chr(zone(Int((35 * Rnd))))
Next i
End Function
=alpha(8)
Mais je ne sais pas si c'est vraiment ce qui est recherché...Re...Une proposition dans le classeur joint.ROGER2327
Pour des explications, voir :