un tout petit prob

[k]

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

 

[sousou]

voilà qui pourrait te servir.

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")

s(i, 1).EntireRow.Cut
.Paste Destination:=.Cells(k, 1)

End With
End If
Next i
End Sub

 

[k]

merci pour reponse sousou ^_~...........