Sub Vire_la_protection_de_la_feuille_active()

Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer

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

                                                    ActiveSheet.Unprotect Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)

                                                    If ActiveSheet.ProtectContents = False Then

                                                        MsgBox "La protection de la feuille a été enlevée avec succès !" & Chr(10) & Chr(10) & "Les caractères qui ont réalisé cette prouesse sont :" & Chr(10) & Chr(10) & Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l), vbInformation, "C’est fait !"

                                                        Exit Sub

                                                    End If

                                            Next

                                        Next

                                    Next

                                Next

                            Next

                        Next

                    Next

                Next

            Next

        Next

    Next

Next

End Sub