Copier coller une ligne avec USF

Private Sub OK_Click()
    Dim x As long 'déclare la variable x
   [SIZE=3][COLOR=red]Dim ligne As Long[/COLOR][/SIZE]
[SIZE=3][COLOR=red]   ligne = Val(TextBox1.Value)[/COLOR][/SIZE]
    If ligne = 0 Then Exit Sub
    Rows("2:5").Select
    For x = 2 To 5                                    'boucle sur les lignes 2 à 5
        'condition : si la valeur de la cellule de la colonne A est égale à la TextBox1
        If Cells(x, 1).Value = [SIZE=3][COLOR=red]ligne[/COLOR][/SIZE] Then
            Rows(x).Select
            Selection.Cut Destination:=Rows("40:40")
            Exit For                                  'sort de la boucle
        End If                                        'fin de la condition
    Next x                                            'prochaine ligne de la boucle
    Unload Me                                         'masque l'Userform
    UserForm1.Hide
    'TextBox1.Value = ""
End Sub