nom de classeur qui varie

Bonjour,

j'ai un petit problème de débutant.
Je souhaite, via une macro, rechercher des infos dans un classeur.
Pb le nom de ce classeur varie :
(La partie méthode et n° de lot peuvent varier).
Je souhaite passer par un formulaire afin de rentrer ces variables, Seulement ça bloque.

Voici mon code

'Boucle générale
Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer

Set WBSource = Workbooks("UserForm1.TextBox2.value" & " lot " & "UserForm1.TextBox1.value" & ".xls")
Set WBDest = Workbooks("BR_tdb.xls")

i = 2

'Boucle sur les cellules de la colonne A
'On sort de la boucle si la cellule testée (Cells(i, 1)) est vide

While WBSource.Sheets("Feuil1").Cells(i, 1).Value <> ""


WBDest.Sheets("Feuil1").Cells(i, 3) = WBSource.Sheets("feuil2").Cells(i, 1).Value




'Passe à la ligne suivante
i = i + 1

Wend

End Sub