Sub Test()
With Feuil1
With .Range("A1").CurrentRegion
.Columns(4) = Application.Substitute(.Columns(4), "h", ":")
.Sort Cells(1, 3), xlAscending, Cells(1, 4), , xlAscending, , , xlGuess
.Columns(4) = Application.Substitute(.Columns(4), ":";"h")
End With
End With
End Sub[/vb]
Bonne fin de Soirée
Amicalement
Jean marie