Dim e_e
Sub Afficher_MDP()
Cherche_le_mot_de_passe False
MsgBox "Excel a trouvé ce mot de passe valide: " & vbCr & e_e, 64, "EUREKA"
End Sub
Private Sub Cherche_le_mot_de_passe(Optional Use_CHAT_GPT_64k As Boolean)
a = 1000001
b = 101010010
c = Application.WorksheetFunction.Bin2Hex(a)
d = Application.WorksheetFunction.Bin2Hex(b)
e_e = c * 3 & d * 3
End Sub