Image transfert

Bonjour bonjour

Dans un userform de saisie j'ai un bouton de commande qui me permet d'afficher une image jpg à partir d'un dossier de mon PC.

Ma question est la suivante , quand je valide le userform, j'aimerais que que cette image soit renvoyer à ma feuille excel,

(Je réalise des fiches automatisées avec image).

Private Sub CommandButton4_Click()

Dim TheFile As Variant

Dim ThePath As String

Dim UserDir As String

ThePath = ""

UserDir = CurDir

TheFile = Application.GetOpenFilename("image(*.jpg),*.jpg")

If TheFile = False Then ChDir UserDir: Exit Sub

With Me.Image1

.Picture = LoadPicture(TheFile)

.PictureSizeMode = fmPictureSizeModeZoom

End With

ChDir UserDir

End Sub

Cordialement