Function Aux(x As String) As String
Dim s, i%
s = Split(x, ".")
For i = 0 To 3
s(i) = Format(s(i), "000")
Next
Aux = Join(s, ".")
End Function
Function Aux(x As String) As String
Dim s, i%
s = Split(x, ".")
For i = 0 To 3
s(i) = Format(s(i), "000")
Next
Aux = Join(s, ".")
End Function
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Sheets("Feuil1").Columns(1).Copy [A1] 'copier-coller
With [A1].CurrentRegion
.Columns(2) = "=Aux(A1)"
.Columns(2) = .Columns(2).Value 'supprime les formules
.Resize(, 2).Sort .Columns(2), xlAscending, Header:=xlYes 'tri
.Columns(2).Clear 'RAZ
End With
End Sub