Ma macro ne fonctionne plus sous excel 2010

Bonjour,

J'utilisais une macro sous excel 2003 qui me permettait d'importer directement des photos par rapport au nom/prénom que je renseignais dans une fiche individuelle.
Nous sommes passés à la version 2010, et cette macro ne fonctionne pas. Je ne comprends pas pourquoi?

La voici:
Const Ss_dossier As String = "photo_staff" 'nom du sous dossier contenant les images
Const ref_cell As String = "$H$2" 'emplacement de la photo
' Michel_M Avril 2012

Sub incorporer_photo()
Dim design As String, cellule As Range
Dim image As Object

design = ThisWorkbook.Path & "\" & Ss_dossier & "\" & ActiveSheet.Range(ref_cell)
'prend en compte le format de la photo
If Dir(design & ".png") <> "" Then design = design & ".png"
If Dir(design & ".jpg") <> "" Then design = design & ".jpg"
If Dir(design & ".jpeg") <> "" Then design = design & ".jpeg"
If Dir(design & ".gif") <> "" Then design = design & ".gif"

'mémorise la photo à afficher
Set cellule = ActiveSheet.Range(ref_cell)
On Error GoTo absence 'photo non disponible
Set image = ActiveSheet.Pictures.Insert(design)
'insere la photo dans la fiche
With image.ShapeRange
.Top = cellule.Top + 2
.Left = cellule.Left + 1
.Name = "numphoto"
.Height = cellule.Height - 3
.Width = cellule.Width - 2
.LockAspectRatio = msoFalse 'garde les proportions de l'original
End With
Exit Sub

absence:
cellule = "photo non disponible"

End Sub

Auriez-vous une solution à m'apporter?
Je vous remercie par avance
Cordialement,