Sub Inserer_image()
Dim Choix, fs, f
With ActiveSheet
Choix = Application.GetOpenFilename("Fichier image(*.gif;*.jpg;*.bmp),*.gif;*.jpg;*.bmp" _
, , "Choix de l'image", , False)
If Choix = False Then Exit Sub
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfile(Choix)
If f.Size > 307200 Then
MsgBox "Taille d'image trop importante" & Chr(10) & "Choisissez une image de moins de 300 Ko"
Exit Sub
End If
Set f = Nothing
Set fs = Nothing
.Pictures.Insert(Choix).Name = "NewPhoto"
End With
End Sub