I like your way, I'll study it. In the meantime, I found a way to do it! I modified the extension of my *.csv file to *.txt, and slightly changed the code like:
Sub Bam()
Dim FilesToOpen
Dim wkbAll As Workbook
Dim wkbTemp As Workbook
Dim newSheet As Worksheet
FilesToOpen = Application.GetOpenFilename(Title:="Text Files to Open")
Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen, Format:=4)
wkbTemp.Sheets(1).Cells.Copy
Set newSheet = ThisWorkbook.Sheets.Add
With newSheet
.Name = wkbTemp.Name
.PasteSpecial
End With
Application.CutCopyMode = False
wkbTemp.Close
End Sub
It's not exactly what I wanted, as I now have to modify my script which generate the *.csv file, but it works!
Thanks for your idea, I'll seriously study it, and maybe I'll not have to modify my script. In all the cases, Thanks a lot, I'm always curious about news ways to work and always want to improve my code! :) Thank you.