Problème affichage image avec macro Excel

Bonjour,
J'ai un PC tournant sous Windows 2007 avec Office 2007.
On m'a filé un fichier excel (trombinoscope) on des photos doivent s'afficher en face du nom.

Voilà la macro :
Function AfficherImageH(NomImage, Optional rep)
Application.Volatile
If IsMissing(rep) Then rep = ThisWorkbook.Path & "\"
Set f = Sheets(Application.Caller.Parent.Name)
Set adr = Application.Caller

AfficherImageH = ""

If Dir(rep & NomImage & ".jpg") <> "" Then
NomImage = NomImage & ".jpg"
GoTo Suite
ElseIf Dir(rep & NomImage & ".jpeg") <> "" Then
NomImage = NomImage & ".jpeg"
GoTo Suite
ElseIf Dir(rep & NomImage & ".gif") <> "" Then
NomImage = NomImage & ".gif"
GoTo Suite
ElseIf Dir(rep & NomImage & ".png") <> "" Then
NomImage = NomImage & ".png"
GoTo Suite
End If

Suite:

Temp = NomImage & "_@_" & adr.Address
Existe = False



For Each s In adr.Worksheet.Shapes
If s.Name = Temp Then
Existe = True
End If
Next s


If Not Existe Then
For Each K In adr.Worksheet.Shapes
p = InStr(K.Name, "_@_")
If Mid(K.Name, p + 3) = adr.Address Then K.Delete
Next K


If Dir(rep & NomImage) = "" Then
AfficherImageH = "Photo non disponible"
Else
Set myShell = CreateObject("Shell.Application")
If TypeName(rep) = "Range" Then
Set myFolder = myShell.Namespace(rep.Value)
Else
Set myFolder = myShell.Namespace(rep)
End If
Set myFile = myFolder.Items.Item(NomImage)
'Taille = myFolder.GetDetailsOf(myFile, 26)
'H = Val(Split(Taille, "x")(1))
'L = Val(Split(Taille, "x")(0))
'Ech = adr.Height / H
'lgcel = adr.Width
'H = H * Ech
'L = L * Ech
Set s = f.Shapes.AddPicture(rep & NomImage, True, True, adr.Left + adr.Width / 2 - L / 2 + 1, adr.Top + adr.Height / 2 - H / 2 + 1, L - 2, H - 2)
s.Name = NomImage & "_@_" & adr.Address
AfficherImageH = " "
End If
End If
End Function

Sub Tri()

Range("A2:M108").Select
Range("M108").Activate
ActiveWorkbook.Worksheets("Listing Stella").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Listing Stella").Sort.SortFields.Add Key:=Range( _
"A3:A108"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Listing Stella").Sort.SortFields.Add Key:=Range( _
"C3:C108"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Listing Stella").Sort.SortFields.Add Key:=Range( _
"D3:D108"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Listing Stella").Sort
.SetRange Range("A2:M108")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("A1").Select
End Sub



La PC qui a permis de créer ce fichier tourne sous Windows XP avec Office 2010 et tout marche nickel

Après plusieurs tests "msgbox" je me suis aperçu que l'erreur venait de la taille de l'image.
L'image apparait mais trop grande. Le coin supérieur gauche est centré dans la cellule.


Avez vous des idées, des solutions ?

Merci d'avance