Sub BoucleFichiers()
Dim T() As Variant, L As Long
ChDrive "C": ChDir "C:\origine"
T = Feuil1.[A1:B1].Resize(Feuil1.[A65536].End(xlUp).Row).Value
On Error Resume Next
For L = 1 To UBound(T)
Err.Clear: Name T(L, 1) & ".jpg" As T(L, 2) & ".jpg"
If Err Then MsgBox "CurDir = """ & CurDir & """." & vbLf & "Ligne " & L & ", instruction :" _
& vbLf & "Name """ & T(L, 1) & ".jpg"" As """ & T(L, 2) & ".jpg"" ==>" _
& vbLf & Err.Description, vbCritical, "BoucleFichiers"
Next L
End Sub