Renommer des fichiers en masse à partir d'une liste

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var, Var2 As Variant
Dim chemin As String 'chemin du dossier des fichiers a renommer
chemin = "C:\Users\.....\Documents\" 'a adapter toujours finir par \
    Set FL1 = Worksheets("Feuil1") 'a adapter
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol) 'colonne A
        Var2 = FL1.Cells(NoLig, NoCol + 1) 'colonne B
        Name chemin & Var As chemin & Var2 'renommer
    Next
    Set FL1 = Nothing
End Sub