Générer une MsgBox à partir d'un array

Bonjour , Me tirant les cheveux depuis hier soir je compte sur vous pour tenter de m'aider à trouver la bonne solution ..

Ce programme me génère 20 nombres aléatoires allant de 1 a 100 sans doublon, a la fin j'obtient donc la solution de la cellule A1 jusqu'à A20, mais je voudrais cette solution dans une msgbox , comment faire ? J'ai essayé avec join mais sans succès ..

Sub Aléatoire()

Dim Arr(1 To 100, 1 To 1) As Integer

Dim i As Integer, J As Integer, K As Integer

For i = 1 To 100

Arr(i, 1) = i

Next i

Randomize Timer

For i = 1 To 20

J = Int(Rnd * (101 - i)) + 1

K = Arr(i, 1)

Arr(i, 1) = Arr(J, 1)

Arr(J, 1) = K

Next i

[A1:A20] = Arr

MsgBox Cells(A1A20)

End Sub

Bonjour et bienvenue sur le forum

Essaie cette modification de ton code :

 Dim Arr(1 To 100, 1 To 1) As Integer
 Dim i As Integer, J As Integer, K As Integer
 Dim message

Sub Aléatoire()
 For i = 1 To 100
    Arr(i, 1) = i
Next i
    Randomize Timer
    message = ""
For i = 1 To 20
    J = Int(Rnd * (101 - i)) + 1
    'K = Arr(i, 1)
    'Arr(i, 1) = Arr(J, 1)
    'Arr(J, 1) = K
    message = message & J & Chr(13)
 Next i
 '[A1:A20] = Arr

MsgBox message

End Sub

Bye!