Sub Lignes1()
'
' Lignes1 Macro
' Macro enregistrée le 20/10/2007 adaptée par Moi
'
For i = 3 To 20
Range("IR" & i & ":" & "KO" & i).Copy
Range("IR" & i + 1 & ":" & "KO" & i + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Sort Key1:=Range("IR" & i + 1), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight[COLOR="Blue"], _
DataOption1:=xlSortTextAsNumbers[/COLOR]
i = i + 1
Next i
'
End Sub