Bonjour,
une idée, sortir de l'évènement si double-clic au dessus du tableau..
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myRange As Range
If Target.Row < 7 Then Exit Sub ' sortir si double-clic sur ligne au dessus du tableau
Cancel = True
Set myRange = Range("D10").CurrentRegion
If Not Intersect(myRange, Target) Is Nothing Then
myRange.Sort key1:=Cells(myRange.Cells(1).Row, Target.Column), Header:=xlYes
End If
Target.Select
End Sub
Il est possible de faire de même pour la colonne...
Cordialement,