tirage aleatoire

Sub Demo1()
         Randomize
         VA = [A2].CurrentRegion.Value
         Application.ScreenUpdating = False
         [C2].CurrentRegion.Clear
    With [C2].Resize(3, UBound(VA) \ 3 - (UBound(VA) Mod 3 > 0))
        For N% = UBound(VA) To 2 Step -1
                         P% = Fix(Rnd * (N - 1)) + 1
            .Cells(N).Value = VA(P, 1)
                   VA(P, 1) = VA(N, 1)
        Next
            .Cells(N).Value = VA(P, 1)
            .Columns.AutoFit
    End With
         Application.ScreenUpdating = True
End Sub