Sub Ordre_mois()
Application.ScreenUpdating = False
Columns("D:D").Insert
Range("d5:d" & Range("c65536").End(xlUp).Row).FormulaR1C1 = "=MONTH(RC[-1])"
Range("d4") = "mois"
Range("b4").CurrentRegion.Sort Key1:=[d4], Order1:=xlAscending, Header:=xlGuess
Columns("D:D").Delete
Application.ScreenUpdating = True
End Sub