Sub deverrouillefichier()
Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer, Test As String
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66: For d = 65 To 66
For e = 65 To 66: For f = 65 To 66: For g = 65 To 66: For h = 65 To 66
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66: For l = 32 To 126
Test = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)
Application.StatusBar = Test: ActiveWorkbook.Unprotect Test
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
End Sub