Simuler un triple click

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=GREEN]'myDearFriend!  -  www.mdf-xlpages.com[/COLOR]

[COLOR=NAVY]Private Declare Function[/COLOR] GetTickCount [COLOR=NAVY]Lib[/COLOR] "Kernel32" () [COLOR=NAVY]As Long[/COLOR]         [COLOR=GREEN]'Temps écoulé (millisecondes)[/COLOR]
[COLOR=NAVY]Private Declare Function[/COLOR] GetDoubleClickTime [COLOR=NAVY]Lib[/COLOR] "User32" () [COLOR=NAVY]As Long[/COLOR]  [COLOR=GREEN]'Durée du Dbl-Clic[/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range, Cancel [COLOR=NAVY]As Boolean[/COLOR])
[COLOR=NAVY]Dim[/COLOR] T [COLOR=NAVY]As Long
Static[/COLOR] C [COLOR=NAVY]As Byte[/COLOR]
    Cancel = [COLOR=NAVY]True[/COLOR]
    C = C + 1
    T = GetTickCount
    [COLOR=NAVY]Do[/COLOR]
         DoEvents
    [COLOR=NAVY]Loop Until[/COLOR] (GetTickCount - T) > (GetDoubleClickTime * 1.2)  [COLOR=GREEN]'Coef 1.2 pour laisser le temps d'un 2ème Dbl-Clic[/COLOR]
    TraiteDblClick C
    C = 0
[COLOR=NAVY]End Sub[/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] TraiteDblClick(N [COLOR=NAVY]As Byte[/COLOR])
    [COLOR=NAVY]If[/COLOR] N > 0 [COLOR=NAVY]Then[/COLOR] MsgBox "Ok" & [COLOR=NAVY]CStr[/COLOR](N)
[COLOR=NAVY]End Sub[/COLOR]

Sub Tri_auto_tableau_dblclick_Ascen()
' Macro enregistrée le 18/11/2008 par MJ
'Stop
nlact = ActiveCell.Rows.Row
ncact = ActiveCell.Columns.Column
    Cells(nlact, ncact).Select
    Selection.CurrentRegion.Select
      'Stop
    ActiveWorkbook.Names.Add Name:="Fortri"
Range("Fortri").Select
Selection.Sort Key1:=Cells(nlact, ncact).Value, Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal  
Cells(nlact, ncact).Select           
End Sub