Sub bouton1_Clic()
Range("A1").Select
Application.Dialogs(xlDialogInsertPicture).Show
With Selection
With .ShapeRange
.IncrementLeft 133.5
.IncrementTop 36
End With
.Width = Application.CentimetersToPoints(3.3)
.Height = Application.CentimetersToPoints(4.3)
End With
End Sub