Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean
Dim plageA, plageB As Range
On Error Resume Next
With Feuil2
Set plageB = .[PlgB]
Set plageA = [PlgA]
Range("a7:c10").Sort [A7], xlAscending
For Each c In plageB
For Each cel In plageA
If c.Offset(0, 0).Value = cel.Offset(0, 0).Value Then
.Range("a7:c10").Sort Feuil2.[A7], xlAscending
Else
Exit For
End If
Next cel
Next c
End With
Application.EnableEvents = True
End Sub