Dim i As Integer
Myvalue Dim As Integer
Islides Dim As Integer
islides = ActivePresentation.Slides.Count
Pour i = 1 à ActivePresentation.Slides.Count
myvalue = Int ((i * Rnd) + 1)
ActiveWindow.ViewType = ppViewSlideSorter
ActivePresentation.Slides (myvalue) .Select
ActiveWindow.Selection.Cut
ActivePresentation.Slides (islides - 1) .Select
ActiveWindow.View.Paste
Suivant