Sub Macro1()
'
' Macro1 Macro
'
'
Columns("J:J").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("N3:N7").Select
Selection.Copy
Range("J3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Macro10()
'
' Macro10 Macro
'
Selection.EntireColumn.insert
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Selection.Copy
Sheets("Feuil1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub