Option Explicit
Public derlig As Long
Sub Tri_Asc()
With Feuil1
derlig = .Range("b" & Rows.Count).End(xlUp).Row
.Range("b7:b" & derlig).Sort .Range("b7"), xlAscending
End With
End Sub
Sub Tri_Des()
With Feuil1
derlig = .Range("b" & Rows.Count).End(xlUp).Row
.Range("b7:b" & derlig).Sort .Range("b7"), xlDescending
End With
End Sub