Macro convertion csv

Bonjour merci frenchie83 pour votre réponse, le probléme c que jai utiliser lenregistreur de macro pour obtenir ma macro et jai pa le meme resultat en manuel jai le tableau convertie nikel par contre par la macro il me separe bien les colonnes mais jai des cellules vides.
Voici ma macro :
ThisWorkbook.Worksheets("Base").Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=True, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), TrailingMinusNumbers:=True


N.b : mon separateur est ;

Merci davance pour votre réponse

Ci-dessous la colonne A que je convertie :
Date : 08/2015;;;;;;;;;
TEST :;;;;;;;;;
COLL. EXT = AA ;COLL. INT = AA;;;;;;;;
AAAA;2011;2012;2013;2014;;;;;
2011;802;79;77;12;;;;;
2012;653;357;147;29;;;;;
2013;584;247;57;17;;;;;
2014;344;596;0;0;;;;;
2015;0;5;0;0;;;;;
Titre :;;;;;;;;;
COLL. EXT = AA ;COLL. INT = AA;;;;;;;;
AAAA;2011;2012;2013;2014;;;;;
2011;51;3;45;10;;;;;
2012;80;1;48;7;;;;;
2013;125;1;123;18;;;;;
2014;0;0;6;92;;;;;
2015;0;0;0;1;;;;;
Titre = test :;;;;;;;;;
COLL. EXT = AA ;COLL. INT = AA;;;;;;;;
AAAA;2011;2012;2013;2014;2015;2016;;;
2011;24;0;0;19;25;5;90;33;3
2012;32;0;0;17;28;5;116;28;8
2013;8;2;0;10;20;2;67;15;2
2014;0;0;0;0;64;0;19;9;1
2015;0;0;0;0;0;0;16;7;1
Test = Titre :;;;;;;;;;
COLL. EXT = AA ;COLL. INT = AA;;;;;;;;
AAAA;2011;2012;2013;2014;2015;2016;;;
2011;2;1;1;1;;;;;
2012;9;5;7;0;;;;;
2013;20;7;4;0;;;;;
2014;0;5;0;0;;;;;
2015;0;0;0;0;;;;;

Merci pour votre aide.

J'ai testé les 2 méthodes et le résultat est identique, Pouvez-vous aussi fournir le mauvais résultat?

Je mexcuse vraiment pour le derangemeng. Mais voila jai changé carrement de tactique jai utilisé une nouvelle macro qui ouvre directement le fichier csv en le convertissant avant de le copié et ca marche nikel par contre le chemin du fichier est en dur dans le code la je vx le rendre dynamique en recuperant le contenu dune cellule ou je vx mettre le chemin et la ca marche pas. Voici ma macro : Sub Macro3()
'
' Macro3 Macro
'

'
Sheets("Importer").Select
Range("A2").Select
Chemin = Range("A2").Value
Nom = Range("B2").Value

ActiveCell.FormulaR1C1 = _
Chemin
'Range("A5").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Chemin", _
Destination:=Range("$A$15"))
.Name = Nom
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ""
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Re bonjour, effectivement quand jexecute jai une erreur qui saffiche qui est : erreur d'execution '1004'impossible de trouver le fichier texte pour lactualisation de cette plage de donnees externes.assurez vous que le texte na ete ni deplacé ni renommé et ressayez.
et quand je debogue il sarrete sur la derniere ligne .refresh backgroundquery :=false

Pour info la cellule a2 contient le chemin dacces de mon fichier+le nom du fichier.csv et la cellule b2 contien le nom du fichier.csv

Bonjour a vous deux et demande d'excuse pour l'incruste,

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Chemin", _
Destination:=Range("$A$15")) 

Chemin est une variable pas un texte

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin, Destination:=Range("$A$15"))