Inversion de colonnes vb

    Columns("C:C").Cut
    Columns("A:A").Insert xlShiftToRight
    Columns("C:C").Cut
    Columns("B:B").Insert xlShiftToRight

tablo = ActiveSheet.UsedRange
coldeb = ActiveSheet.UsedRange.Column
col = coldeb
ligne = ActiveSheet.UsedRange.Row
For n = LBound(tablo, 1) To UBound(tablo, 1)
  For m = UBound(tablo, 2) To LBound(tablo, 2) Step -1
    Cells(ligne + n - 1, col) = tablo(n, m)
    col = col + 1
  Next m
  col = coldeb
Next n

Sub flipflap()
Dim t, a, b, c, i&, x&
t=[A1].CurrentRegion: x=Ubound(t,1)
ReDim a(1 to x): Redim b(1 to x): Redim c(1 to x)
For i= 1 to x
a(i)=t(i,1):b(i)=t(i,2): c(i)=t(i,3)
next i
[A1].Resize(x)=Application.Transpose(c)
[B1].Resize(x)=Application.Transpose(b)
[C1].Resize(x)=Application.Transpose(a)
End Sub