Bonjour Vgendron,
J'ai un petit problème sur mon macro,
If Target = "image" Then
Target.Offset(0, 10).Select
ad = Selection.Address
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image")
ActiveSheet.Pictures.Insert(ficimg).Select
With Selection.ShapeRange...