XL 2016 Couper coller les lignes entre feuilles si condition

Sub couperColler()
    Dim lastcell As Range
    With Worksheets("Travaux en cours")
        Set lastcell = .UsedRange.SpecialCells(xlCellTypeLastCell)
        With .Range([A1], lastcell)
            .AutoFilter Field:=16, Criteria1:="<>"
            With .Range([A2], lastcell).SpecialCells(xlCellTypeVisible)
                .Copy
                Worksheets("Travaux finis").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                .EntireRow.Delete
            End With
            .AutoFilter
        End With
    End With
End Sub