BONJOUR aussi Rantanplan, Salut Raja
Un exemple de code, à utiliser sur des fichiers strictement identiques à ceux de ton exemple, vu qu'il n'y a pas de gestion d'erreur
Penses à renommer la variable DIR, pour indiquer le répertoire que tu veux parcourir
Sub Renomme()
Dim Chemin As String, Fichier As String, Nom As String, Prenom As String, Extension As String, Dir As String
Dim Position1 As Integer, Position2 As Integer
Dir = "C:\test" 'A modifier pour indiquer le répertoire à balayer
With Application.FileSearch
.LookIn = Dir
.Filename = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Chemin = .FoundFiles(i)
Fichier = Right(Chemin, Len(Chemin) - InStrRev(Chemin, "\", -1, 1))
Position1 = InStr(1, Fichier, "_")
Position2 = InStr(1, Fichier, ".")
Prenom = Left(Fichier, Position1 - 1)
Nom = Mid(Fichier, Position1 + 1, Position2 - Position1 - 1)
Extension = Right(Fichier, Len(Fichier) - Position2 + 1)
Name Chemin As Dir & "\" & Nom & "." & Prenom & Extension
Next i
Else
MsgBox "Aucun fichier trouvé"
End If
End With
End Sub