Problème d'ouverture fichier image sous excel

Bonjour,

Je voudrais un petit programme dans excel en vba, pour faire un boutton qui me donne :

1. Clic sur le boutton
2. Ouverture d'une fenêtre
3. Je selectionne un fichier image .jpeg "par exemple"
4. Importation dans un emplacement bien precie sur m'a feuille

Mon problème:
5. Si je fait annuler sur cette fenêtre, j'ai une erreur d'execution 1004.

Le script que j'ai fait:

Private Sub CommandButton1_Click()
Dim image As String
image = Application.GetOpenFilename
Shapes.AddPicture image, True, True, 100, 122, 330, 246
End Sub

Merci, te me dire quoi rajouter pour ne plus avoir d'erreur .