Bonjour,
à tester,
Sub MoveColumn()
n1 = Application.Match("Airbill Number", Range("1:1"), 0)
Columns(n1).Cut
Columns("A:A").Insert Shift:=xlToRight
n2 = Application.Match("Actions", Range("1:1"), 0)
Columns(n2).Cut
Columns("A:A").Insert Shift:=xlToRight
End Sub