Sub Export()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
Set WBSource = Workbooks("Test")
Set WBDest = Workbooks("COPTEST")
WBSource.Activate
For i = Cells(Rows.Count, "c").End(xlUp).Row To 2 Step -1
j = WBDest.Worksheets(1).Range("C65536").End(xlUp).Row + 1
If Range("c" & i) Like "Deplac*" Then Rows(i).Cut Destination:=WBDest.Worksheets(1).Cells(j, 1)
Next i
On Error Resume Next
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
End Sub