XL 2010 Contrôle d'accès par user et mot de passe

Private Sub CommandButton2_Click()
Call VerifMDP(ComboBox1.Text, TextBox1.Text)
UserForm1.Hide
End Sub

Function VerifMdP(Utilisateur As String, MdP As String) As Boolean
    Dim RngTrouve As Range, DateTrouve As Range
    VerifMdP = False      'par défaut, renvoie FAUX
    With Feuil2           'dans la feuille paramétrage
        'cherche, colonne E, le nom d'utilisateur saisi
        Set RngTrouve = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole)
        Set DateTrouve = Feuil1.Columns(1).Cells.Find(Date)
        If RngTrouve Is Nothing Then    'si il ne trouve pas
            VerifMdP = False    'la fonction renvoie faux
            MsgBox ("Nom d'utilisateur incorrect! " & Chr(14) & "Veuillez reessayez!")
        Else              's'il le trouve
            'vérifie que le mot saisi feuille parametrgae colonne G est identique au mot de passe saisi dans l'USF
            If RngTrouve.Offset(0, 1) <> MdP Then
                VerifMdP = False    'si FAUX
                MsgBox ("Mot de passe incorrect! Utilisateur non identifié! " & Chr(10) & "Veuillez reessayer!")
            Else
                VerifMdP = True    'si VRAI
                With Feuil4
                    .Visible = xlSheetVisible
                    .Activate
                    ActiveWindow.Zoom = 100
                End With
            End If
        End If
    End With
    Feuil1.Range(DateTrouve.Address).Offset(, 1) = RngTrouve
End Function

with Feuil1
.visible=true
.Range(DateTrouve.Address).Offset(, 1) = RngTrouve
end with