Sub Macro_Trouve_PassWord()
Dim x%, y%, PwD, MyTimer As Double
Z_Vector = Split("66 97 122 105 110 103 97")
For x = 1 To 256
MyTimer = Timer
Do
Loop While Timer - MyTimer < 0.03
With Application
.StatusBar = "Nombre de mots de passe testés: " & x & " : " & _
Chr(.RandBetween(65, 90)) & "|" & Chr(.RandBetween(127, 201)) & _
.Rept(Chr(.RandBetween(48, 57)), 3) & .Rept(Chr(.RandBetween(32, 47)), 3)
End With
DoEvents
Next x
Application.StatusBar = False
For y = LBound(Z_Vector) To UBound(Z_Vector)
PassWord_Check = PassWord_Check & Chr(Z_Vector(y))
Next
MsgBox PassWord_Check & "!", vbInformation, "Le mot de passe est:"
End Sub