Excel affichage restreint & récurrent données

'se déclenche lors de l'événement : ouverture du classeur
Private Sub Workbook_Open()
'on masque très très fort la Feuil1
Sheets("Feuil1").Visible = xlVeryHidden
'on ouvre l'UserForm permettant la saisie du mot de passe
UserForm1.Show
End Sub

'se déclenche lors de l'événement : avant la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'empêche les messages d'alerte d'Excel (souhaitez vous enregistrer...)
Application.DisplayAlerts = False
'on masque la feuil1
Sheets("Feuil1").Visible = xlVeryHidden
'la feuil2 contenant les infos d'un service, on les supprime
'afin d'éviter que les autres services y aient accès
With Sheets("Feuil2")
    .Range("2:65000").Delete
End With
'et on enregistre ces modifications
ActiveWorkbook.Save
End Sub

'Lors de l'initialisation de l'userform
Private Sub UserForm_Initialize()
Dim Lign As Long
'on vide la combobox des éventuelles infos qu'elle contient
ComboBox1.Clear
'depuis la feuil2
With Sheets("Feuil1")
    'de la 2nde à la dernière ligne colonne C
    For Lign = 2 To .Range("C" & Rows.Count).End(xlUp).Row
        'on ajoute, à la combo, les infos contenues dans ces cellules
        ComboBox1 = .Range("C" & Lign)
        'en évitant d'y enregistrer les données déjà contenues dans la combo
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("C" & Lign)
    Next Lign
End With
End Sub

'Utilisateur, ici en paramètre, va nous permettre de
'tenir compte de la saisie dans la combobox
Sub Ouverture(Utilisateur As String)
Dim Lign As Long
'depuis la feuil1
With Sheets("Feuil1")
'sur toutes les lignes non vides de la colonne C
    For Lign = 2 To .Range("C" & Rows.Count).End(xlUp).Row
        'si le contenu de la colonne C est identique à la valeur
        'choisie dans la combobox
        If .Cells(Lign, 3) = ComboBox1 Then
            'alors on copie toute la ligne de la feuil1 à la feuil2
            .Rows(Lign).Copy Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        End If
    Next
End With
End Sub

If TextBox1 = "" Then
    MsgBox "Mot de passe obligatoire"
    Exit Sub
End If

Case "Comptabilité"
    'si la saisie du mot de passe est différente de "compta"
    ' (mot de passe à adapter bien sur!!)
        If TextBox1 <> "compta" Then
        'alors: message à l'utilisateur et sortie de la procédure
            MsgBox "Mot de passe erroné"
            Exit Sub
    'sinon.....
        Else
        'on appelle la procédure "ouverture" 
        'avec le contenu de la combobox en paramètre
            Call Ouverture(ComboBox1.Value)
        End If

Private Sub CommandButton1_Click()
'teste la saisie d'un mot de passe
If TextBox1 = "" Then
    MsgBox "Mot de passe obligatoire"
    Exit Sub
End If
'étudie les différents cas de saisie dans la combobox
Select Case ComboBox1
    Case ""
        MsgBox "Choisissez votre service"
        Exit Sub
    Case "Comptabilité"
        If TextBox1 <> "compta" Then
            MsgBox "Mot de passe erroné"
            Exit Sub
        Else
            Call Ouverture(ComboBox1.Value)
        End If
    Case "Juridique"
        If TextBox1 <> "jurid" Then
            MsgBox "Mot de passe erroné"
            Exit Sub
        Else
            Call Ouverture(ComboBox1.Value)
        End If
    Case "RH"
        If TextBox1 <> "ressources" Then
            MsgBox "Mot de passe erroné"
            Exit Sub
        Else
            Call Ouverture(ComboBox1.Value)
        End If
    Case "Technique"
        If TextBox1 <> "techn" Then
            MsgBox "Mot de passe erroné"
            Exit Sub
        Else
            Call Ouverture(ComboBox1.Value)
        End If
    Case "Communication"
        If TextBox1 <> "commu" Then
            MsgBox "Mot de passe erroné"
            Exit Sub
        Else
            Call Ouverture(ComboBox1.Value)
        End If
    Case "Accueil"
        If TextBox1 <> "accueil" Then
            MsgBox "Mot de passe erroné"
            Exit Sub
        Else
            Call Ouverture(ComboBox1.Value)
        End If
    Case Else
        MsgBox "Je ne vois pas comment vous en êtes arrivés là"
        Exit Sub
End Select
'ferme l'userform
Unload Me
End Sub