Dim image As Integer
Private Sub CommandButton1_Click()
Dim fd As FileDialog
Dim fichier As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
fichier = vrtSelectedItem
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing
If fichier = "" Then Exit Sub
Selection.InlineShapes.AddPicture FileName:=fichier, LinkToFile:=True, SaveWithDocument:=False
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(fichier)
End Sub