CommandButton copié l'image vers un onglet

Bonjour,

j'ai un bouton qui copie dans ma userform dans un onglet Excel pour les nombres aucun probleme , mais l'image avec Sheets("verso").Range("D4") = Image1.Picture

il copie mais affiche un nombre , alors comment faire pour copié l'image et coller sur l'onglet en D4

Private Sub CommandButton6_Click()
Sheets("verso").Range("d3") = TextBox38.Value
Sheets("verso").Range("c16") = TextBox39.Value
Sheets("verso").Range("a18") = TextBox40.Value
Sheets("verso").Range("a20") = TextBox41.Value
Sheets("verso").Range("D4") = Image1.Picture
End Sub

Bonjour,

A tester :

Shapes("Image1").Top = [D4].Top
Shapes("Image1").Left = [D4].Left

Bonne soirée