Renommer des fichiers en fonction des valeurs d'une colonne

Dim Fichier, Chemin, Adresse, NomFeuille, Racine As String
Dim sh As Shape, img As Object
Dim ndf, ndf1 As String
 
 
Sub extraire_img()
 
'Je récupre le nom de la feuille active
NomFeuille = ActiveSheet.Name
 
symbole = "\"
 
'Je récupre le chemin d'accès du dossier image
    Adresse = Application.GetSaveAsFilename(NomFeuille)
   
    If Adresse = faux Then Exit Sub
    Racine = Left(Adresse, InStrRev(Adresse, symbole) - 1)
 
    Application.ScreenUpdating = False
   
'Je boucle sur les images
    For Each sh In ActiveSheet.Shapes
        If Left(sh.Name, 1) <> "B" Then
        'Je récupère le nom à donner à l'image dans la colonne de gauche
            ndf = Range(sh.TopLeftCell.Address).Offset(0, -1).Text
        'Je récupère le nom de fournisseur la éeme colonne de gauche
            fournisseur = Range(sh.TopLeftCell.Address).Offset(0, -2).Text
        'Chemin d'accès de l'image
            ndf = Racine & symbole & fournisseur & symbole & ndf & ".jpg"
        'Chemin d'accès du dossier fournisseur
            ndf1 = Racine & symbole & fournisseur
        'Je copie l'image du shape
            sh.CopyPicture xlScreen, xlPicture
        'Création d'un graph afin d'y stocker l'image
            Set img = ActiveSheet.ChartObjects.Add(0, 0, sh.Width, sh.Height)
        'Je temporise pour faciliter le collage de l'image dans le graph
            DoEvents
            DoEvents
            DoEvents
            DoEvents
            DoEvents
        'Je colle l'image
            img.Chart.Paste
        'Je vérifie si le dossier fournisseur existe
            If Dir(ndf1, vbDirectory) = "" Then
            'S'il n'existe pas je le créé
                MkDir ndf1
            End If
        'J'importe l'image dans son dossier fournisseur
            img.Chart.Export ndf, "JPG"
        'J'efface le graph
            img.Delete
        End If
    Next sh
   
    Application.ScreenUpdating = True
   
End Sub