Function LettreAleatoire$(Optional App_Vol As Boolean = 1, Optional Chn_Txt$ = "")
'renvoyer une lettre aléatoire choisie parmi un panel pré défini ou passé en argument Chn_Txt
'App_Vol=0 -> non volatile, App_Vol=1 ou omis -> volatile
'V1.0 by Ti_ (Thierry Pourtier)
'V1.1 by Bernard_XLD
'V1.2 by Bernard_XLD
If App_Vol Then Application.Volatile
If Chn_Txt = "" Then Chn_Txt = "abcdefghijklmnopqrstuvwxyzàáâãäåçéêëèìíîïðòóôõöñùúûüýÿ": Chn_Txt = Chn_Txt & UCase(Chn_Txt)
'pour des caractères exotiques par défaut dans la fonction, déclarer les codes car
'If Chn_Txt = "" Then Chn_Txt = ChrW(&H1228) & ChrW(&H561) & ChrW(1096) & ChrW(&H4E94) & ChrW(4312) & ChrW(964) & ChrW(1514) & ChrW(&H146D) & ChrW(&HC77C) & ChrW(&H65E5)
Randomize
LettreAleatoire = Mid$(Chn_Txt, Int(Rnd * Len(Chn_Txt) + 1), 1)
End Function