Sub Convertir_Trier()
Dim derlig&, dercol&, xrg As Range
Application.ScreenUpdating = False
With Worksheets("dt")
'conversion en date
If .FilterMode Then .ShowAllData
derlig = .Cells(.Rows.Count, "a").End(xlUp).Row
Set xrg = .Range("b2:b" & derlig)
dercol = .UsedRange.Column + .UsedRange.Columns.Count
With .Range(.Cells(2, dercol), .Cells(derlig, dercol))
.FormulaR1C1 = "=IF(RC2="""","""",IF(ISTEXT(RC2),DATEVALUE(RC2),RC2))"
xrg.Value = .Value
.EntireColumn.Delete
End With
xrg.HorizontalAlignment = xlGeneral
xrg.NumberFormat = "mmm-yy"
'Tri
With .Range("a1:f" & derlig)
.Sort key1:=.Range("b1"), order1:=xlAscending, Header:=xlYes
End With
End With
Application.ScreenUpdating = True
End Sub