Copier une ligne en VBA

Bonjour à tous,

Je débute en VBA et je recherche comment copier une ligne de données (ou la stocker) en fonction d'une recherche en VBA.
Le but étant de ne pas faire appel à une dénomination de feuille mais uniquement de type "active" afin que si l'utilisateur crée une nouvelle feuille, la macro se déroule toujours bien.

J'ai créé un UserForm qui apparait avec un bouton dont le code est le suivant :

Option Explicit
Public const1 As String

Private Sub CommandButton1_Click()
const1 = Me.TextBox.Value

 Dim lot As Range
 Set lot = Range("A1:A500").Find(const1, Range("A1"))

 Range(lot.Address).Row.Copy  -> Ne fonctionne pas

' MsgBox lot.Address -> Si je supprime la ligne du haut je récupère bien le numéro de cellule de ma recherche const1

 With Sheets("Test")
        .Range("A1").PasteSpecial Paste:=xlPasteValues
 End With
    Application.CutCopyMode = False

Concrètement, j'ai le tableau ci-dessous, je souhaiterais :

Que lorsque l'utilisateur tape "202010K005" dans le formulaire puis valide, il me copie les valeurs de la ligne 31 et les données comprises entre B et I correspondante (pour comprendre le cheminement).

La finalité et mes besoins seraient, idéalement, qu'il me stock sans forcement les copier ou pour les copier ensuite dans des variables les données si ligne 31 :

Les valeurs A31, C31, D31, F31 et H31 je n'ai pas besoin du reste.

Cela est-il possible ?

En vous remerciant,

J'ai solutionné mon problème en sélectionnant la ligne complète en fonction de ma recherche. Comme ceci :

const1 = Me.TextBox.Value

On Error GoTo Error
Dim lot
Dim Nomlot
Dim DL25Data
Dim DL45Data
Dim DL75Data
Dim DL110Data
Dim DLData
Dim DCData
Dim MoyDL25
Dim MoyDL45
Dim MoyDL75
Dim MoyDL110
Dim MoyDL
Dim MoyDC

lot = Range("A1:A500").Find(const1, Range("A1")).Row

Nomlot = "A" & lot
DL25Data = "C" & lot
DL45Data = "D" & lot
DL75Data = "E" & lot
DL110Data = "F" & lot
DLData = "G" & lot
DCData = "H" & lot
MoyDL25 = "C4"
MoyDL45 = "D4"
MoyDL75 = "E4"
MoyDL110 = "F4"
MoyDL = "G4"
MoyDC = "H4"