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