Revenir sur Inputbox en cas d'erreur

ActiveSheet.Unprotect MDP

Range("F1:IV1").Columns.Hidden = True

Application.ScreenUpdating = False
Dim Col As Byte
ici:
    rep = InputBox("Veuillez Saisir Votre Mot de Passe", "MOT DE PASSE", "mot de passe")

        If rep = "" Then
        ActiveSheet.Protect MDP
        End
        End If
        
        If rep = MDP Then
            Range("F1:Q1").Columns.Hidden = False
        Else
        If rep = Masque1 Then Col = 6
        If rep = Masque2 Then Col = 10
        If rep = Masque3 Then Col = 14

        If Col = 0 Then
            MsgBox "Erreur Mot de Passe"
            ActiveSheet.Protect MDP
            GoTo ici
            End
        End If

            Range(Cells(1, Col), Cells(1, Col + 3)).Columns.Hidden = False
        End If

ActiveSheet.Protect MDP
End Sub

Const MDP As String = "Admin"
Const Masque1 As String = "MDP1"
Const Masque2 As String = "MDP2"
Const Masque3 As String = "MDP3"

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Col As Byte, msg0$, msg1$, rep$

    With Sh

        .Unprotect MDP
        .Columns("F:Q").Hidden = True
        .Protect MDP

        Application.ScreenUpdating = False
        msg1 = "Veuillez saisir votre mot de passe : "

        Do
            rep = InputBox(msg0 & msg1, "MOT DE PASSE", "mot de passe")
            Select Case rep
            Case "": End
            Case MDP: Col = 1
            Case Masque1: Col = 6
            Case Masque2: Col = 10
            Case Masque3: Col = 14
            Case Else: msg0 = "Mot de passe erroné !" & vbLf & vbLf
            End Select
        Loop Until Col

        .Unprotect MDP
        Select Case Col
        Case 1: .Columns("F:Q").Hidden = False
        Case 6, 10, 14: .Columns(Col).Resize(, 3).Hidden = False
        End Select
        .Protect MDP

    End With

End Sub