Choisir une image au hasard dans une feuille donnée?

Bonjour,

Le code suivant me permet de copier la "Picture 3" dans "Feuil1" et de la coller dans "SORTEO", mais est-il possible de rendre le "3" aléatoire entre 1 et 50 par exemple?

(Ou toute autre option permettant de choisir une image au hasard dans un fichier par exemple)

Un grand merci par avance

Sheets("Feuil1").Select

Sheets("Feuil1").Shapes.Range(Array("Picture 3")).Select

Selection.Copy

Sheets("SORTEO").Select

Range("c2").Select

ActiveSheet.Pictures.Paste.Select

Bonjour

Sub picture()
Randomize
Nb = Int(50 * Rnd) + 1
Sheets("Feuil1").Activate
Sheets("Feuil1").Shapes.Range(Array("Picture " & Nb)).Select
Selection.Copy
Sheets("SORTEO").Select
Range("c2").Select
ActiveSheet.Pictures.Paste
End Sub

Cordialement

Merci merci!

Je ne pourrai tester que demain.

Bien cordialement.

Fonctionne parfaitement, merci.