Conversion csv en xls

Bonjour, je suis nouveau sur le forum et je solicite votre aide car je rencontre un soucis lors de mon stage.

Je dois convertir des fichiers crées par un logiciel en format csv en xls mais je rencontre un problème c'est à dire que quand je copie colle a la main et avec mon code sur vba je n'ai pas le même le résultat je vais essayer de montrer le plus possible n'hesiter pas à demander des inforamtions si nécessaire.
voici code pour convertir :

Sub ConvertiCvsXls()
Workbooks.Open Filename:=chemin & "\" & fichier

Workbooks(fichier).SaveAs Left(fichier, Len(fichier) - 3) & "xls"
fichier = Left(fichier, Len(fichier) - 3) & "xls"
Workbooks(fichier).Close
end sub

voici le resultat du copier manuelle :


et voici celui du code :



merci de votre aide