Sub Macro1()
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'Range("C2").FormulaR1C1 = "=RIGHT(RC[1],2)" ' ---- le n° de département
Range("C2").FormulaR1C1 = "=LEFT(RC[1],3)" '---la partie Alpha
Range("C2").AutoFill Destination:=Range("C2:C34")
Range("B2").Select
ActiveWorkbook.Worksheets("BASE").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BASE").AutoFilter.Sort.SortFields.Add Key:=Range( _
"C2:C34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
ActiveWorkbook.Worksheets("BASE").AutoFilter.Sort.SortFields.Add Key:=Range( _
"D2:d34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("BASE").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
End Sub