Sub recopier_II()
Dim lOB As ListObject, col, i&
col = Array(Array(1, 8), Array(2, 3), Array(3, 4), Array(6, 7), Array(7, 9))
Set lOB = Sheets("LDEM").ListObjects(1)
For i = 0 To 4
lOB.ListColumns(col(i)(0)).DataBodyRange.Offset(1).SpecialCells(12).Copy Feuil2.ListObjects(1).DataBodyRange.Columns(col(i)(1)).SpecialCells(4).Cells(1)
Next
End Sub