Bonjour Squoltahthx94 , Phil69970 ,
ActiveSheet.SaveAs Filename:="Inter" & Range("A2").Value, FileFormat:=xlCSV, CreateBackup:=False
Le texte en couleur représente Le chemin complet du fichier avec son extension.
Je suppose que la cellule A2 contient le nom du fichier et Inter est le chemin.
Le code devrait être:
ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\Split.csv", FileFormat:=xlCSV, CreateBackup:=False
Si Inter est le chemin: Filname:="inter" & "\" & Range("A2").Value & ".csv"
A toi d'adapter chemin du fichier avec nom du fichier et extension (csv)
A+