Connexion Admin et ces user puis remplisage textbox

Bonjour,

Grâce à l'aide de ce forum et à des certains personnes je suis presque arriver en bout mais une dernière demande de la part de la personne qui m'a demande de lui faire le fichier . C'est qu'il veux qu'il y a une double connexion au fichier une pour des admins et une pour des utilisateurs de chaque admins.

et que sur la page accueil il y afficher ensuite connecter en tant qu’utilisateur 1 du groupe Admin1.

Puis que sur la page de connexion en ce qui concerne Admin il y affiche aussi e mail de chaque Admin en fonction de la combo box et s'il n'y a pas de e mail qu'on est obliger de le donner et qu'on suite la macro vérifie si c'est la forme de mail.

Dans le fichier joint d'exemple j'ai expliquer mieux ce qu'on m'a demande de faire

Pour le moment pour remplir ma textbox j'utilise cela mais cela ne marche pas

Private Sub CBAdmins_Change()
With Sheets("SGTR-ADMIN")
        TBEmail = .Cells(CBAdmins.ListIndex + 2, 3)

End With
End Sub

et pour remplir ma combobox qui m'affiche bien les admins :

Private Sub UserForm_Initialize()
Me.CBAdmins.SetFocus
'vidage des textbox :
CBAdmins = ""
TBMotdePasse = ""
 Me.CBAdmins.List = Sheets("SGTR-ADMIN").Range("ADMINS").Value
Dim H As Integer
With Sheets("SGTR-ADMIN")
For H = 2 To .Range("a65536").End(xlUp).Row
TBEmail = Range("c" & H).Value
Next H
End With