Salut Schnee,
comme je comprends l'affaire, [C] est vide ?
Il faut donc trier [A:B] selon ['B] et copier en [C] les valeurs de [A] en gardant, j'imagine, sinon à quoi ça sert, les colonnes [A:B] dans leur ordre initial.
Un double-clic démarre la macro...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData
'
Cancel = True
tData = Range("A1:B10").Value
'
Range("A1:B10").Sort key1:=Range("B1"), order1:=xlAscending, Orientation:=xlTopToBottom
Range("C1:C10").Value = Range("A1:A10").Value
Range("A1:B10").Value = tData
'
End Sub
Suspense...
A+