Re : Faire le tri en sélectionnant automatiquement la zone
Merci, ça fonctionne
avec ceci
'Tri de la feuille---------------
Public Sub TriFeuil1()
Dim DerL As Long
With Sheets("Feuil1")
If .Range("b7").Value = "" Then Exit Sub ' ca pour le cas ou tout est vide
DerL = .Range("B6").End(xlDown).Row
If DerL > 7 Then .Range("A7:O" & DerL).Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub