Sub tri_rappelsJ()
With Feuil1 'CodeName
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .Rows("4:" & .Range("J65536").End(xlUp).Row)
If .Row < 4 Then Exit Sub 'sécurité
Application.ScreenUpdating = False
.Columns(10).EntireColumn.Insert 'insère une colonne auxiliaire
.Columns(10) = "=--(SUBSTITUTE(LEFT(TRIM(RC[1]),10),"" "",""/"")&RIGHT(TRIM(RC[1]),6))"
.Columns(10) = .Columns(10).Value 'supprime les formules
.Sort .Columns(10), xlAscending, Header:=xlNo
.Columns(10).EntireColumn.Delete 'supprime la colonne auxiliaire...