Sub tri_alea()
'
' tri_alea Macro
'
'
Sheets("DATA").Select
Range("B2:B8").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Range("D2:E8").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Clear
[COLOR=rgb(250, 197, 28)] ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add2 Key:=Range _
("E2:E8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal[/COLOR]
With ActiveWorkbook.Worksheets("DATA").Sort
.SetRange Range("D2:E8")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
Sheets("Affectations Saisie PY").Select
Range("B2:E2").Select
MsgBox ("Planning généré avec succès")
End With
Exit Sub
End Sub