Sub nouveau_client()
'
' nouveau_client Macro
' Macro enregistrée le 28/08/2009 par usinage
'
'
Sheets("Feuil3").Select
Rows("16:16").Select
Selection.Insert Shift:=xlDown
Sheets("Feuil2").Select
Range("C26").Select
Selection.Copy
Sheets("Feuil3").Select
Range("E16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E7").Select
Application.CutCopyMode = False
Range("E7:E28").Sort Key1:=Range("E7"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Feuil2").Select
Range("C26").Select
Selection.ClearContents
End Sub