Sub CopyValAndClearIV()
Dim vArr, lig&: lig = Cells(12, 13).End(xlDown).Row
Range(Cells(12, 2), Cells(lig, 13)).Name = "EFFACE"
vArr = [EFFACE].Item(11).Resize([EFFACE].Rows.Count, 2).Value
[vZONE].Offset(1).Resize(UBound(vArr)).Value = vArr
[EFFACE].SpecialCells(2, 23) = Empty
End Sub