Private Sub CommandButton2_Click()
Dim ficimg As Variant
ChDir "C:\Users\Franck\Documents\Excel" 'Indiquer le chemin complet jusqu'au répertoir voulu
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix nom du fichier
Set Position = Application.InputBox("Sélectionne la cellule où copier les données !", "Sélection de cellules", Type:=8)
ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
With Selection.ShapeRange
.LockAspectRatio = False ' proportion d'origine lorsque vous la redimensionnez
.Top = Position.Top ' haut de la cellule
.Left = Position.Left ' gauche de...