Bonsoir modus57, le Forum,
Je te propose cette macro événementielle à placer dans un composant WorkSheet dans Visual Basic Editor (Feuil 1 par ex.) :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A2:A65536')) Is Nothing Then
Call Trier 'appelle la macro Trier
Cancel = True 'évite le mode édition lié au double clic
End If 'fin de la condition
End Sub
'A placer dans un module
Sub Trier()
Columns('A:A').Select
Selection.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
En te souhaitant un bon dimanche