XL 2010 Aide correction code pour déplacer entre feuilles

[Lionel CIMA]

Bonjour,

Je cherche à déplacer des lignes d'une feuille à une autre dans le même classeur sous condition.
(déplacement de la ligne sur la feuille
Il me semble que le code suivant devrait me permettre d'obtenir le résultat attendu mais ça ne marche pas.
Un peu d'aide serait bienvenu...
Merci beaucoup

Sub Archivage()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
Set WBSource = Workbooks("Test")

WBSource.Activate
For i = Cells(Rows.Count, "c").End(xlUp).Row To 2 Step -1
j = Worksheets("DVi").Range("C65536").End(xlUp).Row + 1
If Range("c" & i) Like "*lib*" And Range("f" & i) <> "" Then
    Rows(i).Cut Destination:=Worksheets("DVi").Cells(j, 1)
    Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[mutzik]

bonjour,

ca bloque où ?
merci de joindre ton fichier sans données confid

 

[Lionel CIMA]

J'ai trouvé la solution. En fait le code bloquait sur la mauvaise identification de la feuille à utiliser.