Importer un tableau d'un fichier.csv ci-dessous en un fichier.xls

Bonjour à tous;
Je dois importer un tableau d'un fichier.csv ci-dessous en un fichier.xls,
---------------------------Fichier.CSV
Journee Taux 1 Taux 2 Taux 3 Taux 4
01/06/2009 56,00% 83,00% 12,00% 43,00%
------------ Apres le macro j'obtiens ce qui suit ( en bas)-----------
-----------------------------Fichier.XLS
Journee Taux 1 Taux 2 Taux 3 Taux 4
01/06/2009 (ok) 56 (sans %) (vide) (vide) (vide)
----------------------------------------
la date (journée) est bon; Taux1 n'a pas le signe % et Taux 2,3,4 sont vides
Voici le macro------------------------------------------------------
Sub importTauxTri()
exportTauxsys = Range("exportTaux") ' fichier.csv
importTauxsys = Range("importtaux") ' fichier.xls

Workbooks.Open Filename:=dossier & "\" & exportTauxsys
Columns("A:A").Select
Application.DisplayAlerts = False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2))
Application.DisplayAlerts = True

'activation du classeur et de la feuille de destination

Windows(Classeur).Activate
Sheets(importTauxsys).Activate ''''
Sheets(importTauxsys).Visible = True
Sheets(importTauxsys).Select

'collage des données à leur destination

Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Fin Macro-----------------------------------------------
Question: Pouvez vous m'aider à faire afficher le signe (%) du Taux 1 et les autres Taux où les cellules sont vides.
Merci d'avance;