Sub Insertion()
Dim DerLig As Long, PremLig As Long
DerLig = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row - 1
'PremLig = DerLig - Range("J" & DerLig )
For PremLig = DerLig To 1 Step -1
If Range("j" & PremLig) = 1 Then Exit For
Next PremLig
Range("K" & PremLig & ":O" & DerLig).Sort Key1:=Range("L" & PremLig), Order1:=xlDescending, _
Key2:=Range("M" & PremLig), Order2:=xlDescending, _
Key3:=Range("N" & PremLig), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
End Sub