Chargement d'une image dans une cellule précise

Private Sub CommandButton1_Click()
Dim derligne As Integer
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
If MsgBox("confirmez-vous l'ajout de vos données?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("capitaliser").Range("A456541").End(xlUp).Row + 1
Cells(derligne, 1) = UserForm1.ComboBox1.Value
Cells(derligne, 2) = UserForm1.TextBox1.Value
Cells(derligne, 3) = UserForm1.TextBox2.Value
Cells(derligne, 5) = UserForm1.TextBox3.Value
If UserForm1.CommandButton1 = Active Then
Cells(derligne, 6) = "squelette prestation"
End If
If UserForm1.CommandButton2 = Active Then
Cells(derligne, 6) = "1/5éme de référence"
End If
Cells(derligne, 7) = UserForm3.ComboBox1.Value
Cells(derligne, 8) = UserForm3.ComboBox2.Value
Cells(derligne, 9) = TextBox1.Value
'ajout de l'image dans cellule 10
L = ActiveCell(derligne, 10).Left
T = ActiveCell(derligne, 10).Top
W = ActiveCell(derligne, 10).Width
H = ActiveCell(derligne, 10).Height
If Image <> False Then
ActiveCell(derligne, 10).AddPicture Image, True, True, L, T, W, H
End If
'clos
Cells(derligne, 11) = TextBox2.Value
End If
End Sub

Private Sub CommandButton2_Click()
UserForm4.Hide
UserForm3.Show
End Sub

Private Sub CommandButton3_Click()
Image = Application.GetOpenFilename
Me.Image1.Picture = LoadPicture(Image)
Me.Image1.Visible = True
Image1.PictureSizeMode = 1
End Sub