Private Sub Image1_Click()
With Application.FileDialog(1)
.Filters.Clear
.Filters.Add "Fichier image", "*.jpg; *.gif "
If .Show = -1 Then Image1.Picture = LoadPicture(.SelectedItems(1))
End With
Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub