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