un tout petit prob

Voici une macro qui me permet de copier une certaine
ligne d'un tableau qui verifie une condition dans un autre tableau,
mais quelqu'un pourrait il me dire comment modifier cette
macro afin de ne pas copier mais COUPER et coller cette
ligne dans ce dit-tableau?
Merci d'avance

Sub Copie()
Set s = Selection
For i = 1 To s.Rows.Count
If s(i, 1) <> "" And s(i, 2) <> "" Then
k = k + 1
With Worksheets("X")
.Cells(k, 1).EntireRow.Value=s(i,1).EntireRow.Value
.Cells(k, 2).EntireRow.Value=s(i,2).EntireRow.Value
End With
End If
Next i
End Sub