Bonsoir le fil, bonsoir le forum,
En pièce jointe, ton fichier avec un code modifié. À partir du moment où tu sépares les données par une ligne vide, le tri ne s'effectuera que dans la zone où tu double-cliques. Si, juste après le tri, tu veux revenir aux valeurs initiales, il te suffira de cliquer avec le bouton droit de la souris...
Le code :
Option Explicit
Private TV As Variant
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim PL As Range
Set PL = Target.CurrentRegion
TV = PL
If PL.Cells.Count = 1 Then Exit Sub 'pour fcyspm30
Cancel = True
PL.Sort key1:=Cells(PL(1, 1).Row, Target.Column), order1:=xlAscending, Header:=xlGuess 'merci Curulis...
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.CurrentRegion.Value = TV
End Sub
Le fichier :