insertion d'image dans une feuille EXcel

Bonjour, je crains de ne pas être à ma place car je suis un amateur récent de vba, je pose ma question malgré tout, si l'un de vous peut m'aider ce serait vraiment sympa :
J'ai un classeur excel dont chaque feuille représente un élève .
Je souhaite insérer la photo.jpeg de chacun qui se trouve dans un fichier dans la bonne feuille au bon endroit et aux bonnes dimensions .
En résumé :
comment insérer une photo ?
à un endroit précis de la feuille ?
avec des dimensions souhaitées ?
comment automatiser cette distribution (chaque photo pour chaque feuille )
Merci d'avance

Dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub InsertImage(ByVal CelAdr As String, ByVal Chemin As String)   With Sheets(Range(CelAdr).Parent.Name).Pictures.Insert(Chemin).ShapeRange .LockAspectRatio = msoFalse 'ou msoTrue .Width = Range(CelAdr).Width .Height = Range(CelAdr).Height .Left = Range(CelAdr).Left .Top = Range(CelAdr).Top End With End Sub

---

pour insérer une image à l'aide d"un bouton (ici dans la cellule C33)

Code:

---

1 2 3

Private Sub CommandButton1_Click() InsertImage "C33", "C:\Users\user\Desktop\AZIZ\PhotoFa.jpg" End Sub

---