Problème de condition toujours fausse

Bonjour,

je suis face à un problème.
J'avais un programme qui fonctionnait très bien jusqu'à ce que j'essaie de l'optimiser.

Dans mon programme il y a 2 inputbox.
Si la première est vide le programme s'arrête, mais si elle ne l'est pas je dois aller chercher dans mon autre classeur "Game" si ce qui est entré dans l'inputbox existe et si ce qui est entré existe, la 2eme inputbox se lance.

Mon code s'execute bien lorsque l'inputbox est vide mais après c est la cata. Si ce que j'ai rentré dans la première inputbox est faux alors une msgbox s'affiche mais le problème est que même lorsque ce que j'ai entré est vrai mon programme ne fonctionne pas  (la msgbox s'affiche et la 2eme inputbox ne se lance pas).

Je vous met un extrait de mon code:

Dim res1 as String
Dim res2 as String
Dim Q as long
Dim NomClasseur as String

Res1 = scan (rep) 'appel de la fonction, lance la première inputbox

NomClasseur = "Game.xlsm"

Application.ScreenUpdating = False 

If rep = "" Then
Exit sub 
Elseif rep <> "" Then
For Q = 2 to 5000 


Workbooks.open ("D:\users\moi\Documents\" & NomClasseur)

Do While Workbooks("Game").Sheets("jeu").Cells (Q, 1).Value <> ""

If rep = Workbooks("Game").Sheets("jeu").Cells (Q, 1).Value Then

res2 = scan(conf) 'Appel de la fonction, lance la deuxième inputbox 
Else
MsgBox "Incorrecte"
Workbooks("Game.xlsm").Close
End if 

Loop
Next Q

End if

Merci pour votre aide.