macro move line from one sheet to another

adrian_hafredal 

Sub three_names()

Dim i As Long
Dim k As Long
Dim l As Long

l = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To l

If Cells(i, 10).Value = "remove" Then

Select Case Cells(i, 1).Value

Case Is = "A"

k = Worksheets("nom de site " & Cells(i, 1).Value).Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(i, 1), Cells(i, 9)).Copy Destination:=Worksheets("nom de site " & Cells(i, 1).Value).Cells(k + 1, 1)
Rows(i).Delete
i = i - 1

Case Is = "B"

k = Worksheets("nom de site " & Cells(i, 1).Value).Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(i, 1), Cells(i, 9)).Copy Destination:=Worksheets("nom de site " & Cells(i, 1).Value).Cells(k + 1, 1)
Rows(i).Delete
i = i - 1

Case Is = "C"

k = Worksheets("nom de site " & Cells(i, 1).Value).Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(i, 1), Cells(i, 9)).Copy Destination:=Worksheets("nom de site " & Cells(i, 1).Value).Cells(k + 1, 1)
Rows(i).Delete
i = i - 1

End Select

Else
End If

Next i

End Sub

Maybe with this code. You can enter "remove" in column J ( in one or many cells) and click the button in cell K1. The row then is copied to the designated sheet and then it is deleted from the "to do" sheet.