Renommer des fichiers à l'aide d'une base Excel Macro / Logiciel

Private Sub CommandButton1_Click()
Dim nom As String
Dim nouveau As String
Dim chemin As String
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long
Dim NomFich As String
Dim existe As Boolean
chemin = ThisWorkbook.Path & "\Dossierimages\"
 Set FL1 = Worksheets("Feuil1") 'adapter le nom de la feuille
    NoCol = 2 'lecture de la colonne B
     For NoLig = 2 To Range("B" & Rows.Count).End(xlUp).Row
        FL1.Cells(NoLig, NoCol).Select
   nom = FL1.Cells(NoLig, NoCol).Value
      nouveau = FL1.Cells(NoLig, NoCol - 1).Value
      NomFich = chemin & nom & ".jpg"
     existe = ExisteFichier(NomFich) 'on vérifie que le fichier existe
    If existe = True Then
Name chemin & nom & ".jpg" As chemin & nouveau & ".jpg" 'adapter l'extension
     Else
     End If
      Next
    Set FL1 = Nothing
End Sub
Function ExisteFichier(nomfic As String) As Boolean
ExisteFichier = (Dir(nomfic) <> "")
End Function