Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim i As Integer, j As Integer
Dim temp As String
tablo = Range('a1:a' & Range('a65536').End(xlUp).Row)
For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If CSng(Mid(tablo(i, 1), 3)) < CSng(Mid(tablo(j, 1), 3)) Then
temp = tablo(i, 1)
tablo(i, 1) = tablo(j, 1)
tablo(j, 1) = temp
End If
Next j
Next i
For i = 1 To UBound(tablo)
Cells(i, 3) = tablo(i, 1)
Next i
End Sub