Bonjour Studymax, bonjour le forum,
Essaie comme ça (chemin à adapter) :
Sub Macro1()
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim F As String 'déclare la variable F (Fichier)
Dim N As String 'déclare la variable N (Nom)
CH = "C\blabla\blabla\blabla\" 'définit le chemin d'accès CH (à adapter à ton cas)
F = Dir(CH & "*.csv") 'définit le premier fichier .csv du dossier ayant CH comme chemin d'accès
Do While F <> "" 'boucle tant qu'il existe des fichiers .csv
N = Replace(F, ".csv", "") 'définit le nom N (le nom du fichier sans l'extension)
Workbooks.Open CH & F 'ouvre le fichier F
ActiveWorkbook.SaveAs CH & N, FileFormat:=51 'enregistre le fichier au format Excel
ActiveWorkbook.Close 'ferme le fichier
F = Dir 'définit le prochain fichier .csv
Loop 'boucle
End Sub