Bonjour Nicko,
il existe une alternative à Vlookup qui te permet de récupérer l'adresse de la ligne. Si j'ai bien compris ta question tu cherche la valeur en colonne A pour renvoyer la valeur de la même ligne de la colonne D. Essaye donc le code suivant :
sub trucMachin()
Dim Prenom As String
Dim c As Range
Set c = Columns("A:A").Find(what:=NumTxt.Text) 'repère la cellule contenant la valeur recherchée
Prenom = Cells(c.Row, 4) 'c.row correspond à la ligne de la valeur trouvée
LblPrenom.Caption = Prenom
...