[Excel] Insertion d'image à l'aide

Bonjour,

J'aurais besoin d'aide pour inserer une image/picture/logo dans une cellule Excel à partir de Aviva(Il utilise le basic de VB code)
J'ai aucune idée de comment procede pour l'insertion d'image.

Voici mon code pour l'entre de donner à l'interieur.

Dim Location As String, Num As Integer
Dim Readfile As String, Amount As Currency
Dim Elocation(1 To 2) As String
Dim RecNum As Integer, TotalAmt As Currency

Set NashXl = CreateObject("excel.application")

NashXl.Workbooks.Add
NashXl.Range("A1").ColumnWidth = 8
NashXl.Range("B1").ColumnWidth = 25
NashXl.Range("C1").ColumnWidth = 15
NashXl.Range("D1").ColumnWidth = 15
NashXl.Range("E1").ColumnWidth = 12
NashXl.Range("A1").EntireColumn.HorizontalAlignment = 2
NashXl.Range("B1").EntireColumn.HorizontalAlignment = 2
NashXl.Range("C1").EntireColumn.HorizontalAlignment = 2
NashXl.Range("D1").EntireColumn.HorizontalAlignment = 2
NashXl.Range("E1").EntireColumn.HorizontalAlignment = 1
NashXl.Range("C1").Font.Bold = True
NashXl.Range("C1").Font.Size = 20
NashXl.Range("C2").Font.Size = 12
NashXl.Range("C1").HorizontalAlignment = 3
NashXl.Range("C2").HorizontalAlignment = 3
NashXl.Range("C3").HorizontalAlignment = 3
NashXl.Range("C4").HorizontalAlignment = 3
NashXl.Range("C1").Value = "MARC COMPAGNIE"
NashXl.Range("C2").Value = "ADDRESS 1 " & "ADDRESS 2 " & "ADDRESS 3"
NashXl.Range("C3").Value = "Tel : " & "450-666-6666"
NashXl.Range("C4").Value = "Fax : " & "514-666-6667"
NashXl.Range("E4").Value = "Date : " & "10/15/2007"
NashXl.Range("A7").Font.Size = 14
NashXl.Range("A7").Font.Underline = True
NashXl.Range("A7").Value = "FAMILLE BEAUDOIN TITRE"
NashXl.Range("B9").Font.Underline = True
NashXl.Range("C9").Font.Underline = True
NashXl.Range("D9").Font.Underline = True
NashXl.Range("E9").Font.Underline = True
NashXl.Range("B9").Value = "PRODUIT"
NashXl.Range("C9").Value = "COMPTE"
NashXl.Range("D9").Value = "TRANSIT"
NashXl.Range("E9").Value = "SOLDE"
NashXl.Range("A9").Borders.Value = 1
NashXl.Range("B9").Borders.Value = 1
NashXl.Range("C9").Borders.Value = 1
NashXl.Range("D9").Borders.Value = 1
NashXl.Range("E9").Borders.Value = 1

Donc j'aimerais simplement ajouter une image dans une cellule X( predefinis sois example C25 pour test.

Merci d'avance, vous pouvez m'envoyer un email pour l'Information à cyrax671@hotmail.com