Option Explicit
Sub test()
alea "arr_bags", "arr_colis"
End Sub
Sub alea(source, dest)
Dim myBag As Range
Dim randomized As Integer
Dim random As Integer
Randomize
randomized = 0
For Each myBag In Application.Range(source)
random = Int((randomized+1) * Rnd)
myBag.Copy
Application.Range(dest).Offset(random + 1, 0).Resize(1, 1).Insert shift:=xlDown
randomized = randomized + 1
Next
End Sub