Importation automatique image JPEG excel

Const Ss_dossier As String = "photo_staff" 'nom du sous dossier contenant les images 
Const ref_cell As String = "$A$1" '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