Sub TraitementCarteLucent()
'
' TraitementCarteLucent Macro
' Macro enregistrée le 01/07/2010
'
'
Columns("A:A").Select
Selection.Cut
Columns("H:H").Select
ActiveSheet.Paste
Columns("B:B").Select
Selection.Cut
Columns("A:A").Select
ActiveSheet.Paste
Columns("H:H").Select
Selection.Cut
Columns("B:B").Select
ActiveSheet.Paste
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Columns("G:G").Select
Selection.Cut
Columns("D:D").Select
ActiveSheet.Paste
Columns("H:H").Select
Selection.Cut
Columns("G:G").Select
ActiveSheet.Paste
Columns("D:D").Select
Selection.NumberFormat = "0"
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End Sub