VBA deplace ligne dans une autre feuil selon textbox

Private Sub CommandButton1_Click()
'récupère le numéro de la facture saisi
NumFacture = TextBox1.Value
'la cherche dans la feuille ACTIF
Set c = Range("R:R").Find(NumFacture)
If Not c Is Nothing Then
    'MsgBox c.Row
    'copie la ligne entière
    Range(c.Row & ":" & c.Row).Copy
    
     'la colle à la fin
    With Sheets("ARCHIVES")
        LastLine = .Range("A65536").End(xlUp).Row + 1
        .Activate
        .Rows(LastLine & ":" & LastLine).Select
        .Paste
    End With
     'retourne dans la feuille ACTIF pour supprimer la ligne
    Sheets("ACTIF").Activate
    ActiveSheet.Rows(c.Row & ":" & c.Row).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    
End If

End Sub