et bien c'est encore moi..le bidouillage paye mais fort lentement je me réponds donc à moi même ça peut servir à d'autres bien que ça ne soit pas au point
Private Sub Image1_Click()
Dim image As String
image = Application.GetOpenFilename('Images, *.jpg')
If image = 'Faux' Then Exit Sub
Image1.Picture = LoadPicture(image)
Worksheets('Feuil1').Shapes.AddPicture image, False, True, 1, 1, 100, 50
End Sub
cependant les deux derniers chiffres donnent la taille de l'image j'aimerais bien qu'elle s'ajuste automatiquement comme le picturesizemodeclip du bouton de contrôle si vous avez une idée vraiment je suis preneuse (de même pour alléger la taille de l'image)Merci