Userform et Image, insertion et dimensionnement

Private Sub UserForm_Initialize()
'Chemin base de donnée
    Workbooks.Open ("C:\Users\LePivert\Documents\essai.xlsx")'a adapter
End Sub
Sub InsertionImage()
Dim Emplacement As Range
Application.Dialogs(xlDialogInsertPicture).Show
Workbooks("essai.xlsx").Worksheets("Feuil1").Activate 'a adapter
    Set Emplacement = Range("C18:E25")
    Selection.Left = Emplacement.Left
    Selection.Top = Emplacement.Top
    Selection.Height = Emplacement.Height
    Selection.Width = Emplacement.Width
    Selection.Name = "photoNOK"
 End Sub

Option Explicit
Private Const Fichier As String = "C:\Users\LePivert\Documents\mondossier\ImageTemp.gif"  'a adapter
Private Sub CommandButton1_Click()
InsertionImage
End Sub
Private Sub UserForm_Initialize()
'Chemin base de donnée
    Workbooks.Open ("C:\Users\LePivert\Documents\mondossier\essai.xlsx") 'a adapter
End Sub
Private Sub UserForm_Terminate()
   'Supprime l'image temporaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
End Sub
Sub InsertionImage()
Dim Emplacement As Range
Dim nb As Byte
   Dim Sh As Shape
 'Supprime l'image temporaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
 Application.Dialogs(xlDialogInsertPicture).Show
Workbooks("essai.xlsx").Worksheets("Feuil1").Activate
    Set Emplacement = Range("C18:E25")
    Selection.Left = Emplacement.Left
    Selection.Top = Emplacement.Top
    Selection.Height = Emplacement.Height
    Selection.Width = Emplacement.Width
    Selection.Name = "photoNOK"
    'Définit le 1er shape de la feuille comme image
    ' à afficher dans l'UserForm
    Set Sh = Worksheets("Feuil1").Shapes(1)
    'copie le shape dans la feuille
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .Export Fichier, "gif"
    End With
  nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(nb).Delete
    'Affiche l'image dans le graphique
    Image1.Picture = LoadPicture(Fichier)
 End Sub

Private Sub CommandButton1_Click()
Dim Emplacement As Range
Dim chemincomplet As String

chemincomplet = Application.GetOpenFilename
 Me.Image1.Picture = LoadPicture(chemincomplet)
  ' Me.Image8.Visible = True
   'TextBox160.Text = "Ok"
'  MNC.Range("B6").Select
Workbooks("essai.xlsx").Worksheets("Feuil1").Activate
    ActiveSheet.Pictures.Insert(chemincomplet).Select
    Selection.ShapeRange.Name = "photoNOK"
    'MNC.Shape("photoNOK").Select
 Selection.Left = Range("C18").Left
  Selection.Top = Range("C18").Top
   Selection.Height = Range("C18:E31").Height
End Sub
Private Sub UserForm_Initialize()
 Workbooks.Open ("C:\Users\LePivert\Documents\essai.xlsx") 'a adapter
End Sub