Sub Invers_colonne()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = ActiveWorkbook.Sheets("lf1")
Set ws2 = ActiveWorkbook.Sheets("lf2")
For n = 1 To 14
ch = Mid(ws1.Cells(1, n + 1), 2) + 1
ws1.Cells(1, ch).EntireColumn.Copy
col = 16 - n
ws2.Paste Destination:=ws2.Cells(1, col)
Next
End Sub