Sub Valider1()
'
' Valider Macro
' Macro enregistrée le 05/03/2008 par SNR
'
Application.ScreenUpdating = False
Rows("10:10").Insert Shift:=xlDown
Rows("4:4").Copy
Rows("10:10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Copy
Rows("10:10").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A4").Copy
Range("A10").Select
ActiveSheet.Paste
Range("t4:w4,y4,aa4:Ac4,Af4,Ah4,Aj4:Al4,Ao4,Aq4,At4:Au4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("t4").Select
Application.ScreenUpdating = True
End Sub