Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim St As String, Lien As String
If Target.Value = "" Then Exit Sub
If Not IsNumeric(Target.Value) Then
St = CStr(Target.Value)
Else
St = Target.Address
St = Range(Chr(Asc(Mid(St, 2, 1)) - 1) & Mid(St, 3, Len(St)))
End If
Lien = "http://fr.wikipedia.org/wiki/" & St
ActiveWorkbook.FollowHyperlink Address:=Lien, NewWindow:=True
End Sub
Je n'ai pas regardé le code que tu avais utilisé mais je me doutais que c'était plus simple de trier avec les données telles que tu les avais plutôt qu'avec des données avec un "0" devant. Le plus simple est peut-être de ne pas modifier la macro de tri mais plutôt de traiter cette partie au niveau de l'affichage des données dans la liste.David les 3 premiers points sont traités.
parcontre le tri c'est pas de la tarte, mais pas insoluble.