problème VLOOKUP

Qui peut m'aider sur la fonction VLOOUP car je sèche lamentablement :

Sub login()
'
' login Macro
'
'vérifier que le login et le mot de passe existent

Dim login_user As String
Dim login_user1 As String
Dim mot_de_passe As String
Dim Nom_fichier As String

login_1.Show

login_user = Range("A1")
mot_de_passe = Range("A2")


Nom_fichier = "BUDGET COUTS INDIRECT DETAIL DATABASE 2010.xlsm"


login_user1 = WorksheetFunction.VLookup(login_user, Sheets("login1").Range("B2:C30"), 1, False)

If login_user1 <> login_user Then


MsgBox ("Le Login utilisé" & login_user & " n'existe pas ")

End If


cela renvoie une erreur ...
j'ai beau chercher ...

merci de votre aide précieuse
Nades