Pbm avec TexToColumns

Bonjour,

petit problème VBA avec la fonction TextToColumns :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
Sub Transfo()
'
' Touche de raccourci du clavier: Ctrl+Maj+I
 
Dim i As Integer
Dim derniereColonne As Integer
 
On Error GoTo ErrHandler
 
derniereColonne = ActiveSheet.Range("IV1").End(xlToLeft).Column
 
For i = 1 To derniereColonne Step 1 'de la 1ère colonne à la dernière colonne remplie
 
    Columns(i).Select 'on sélectionne la colonne i
 
    'on applique la fonction de conversion des données définie par l'enregistrement de la macro
    Selection.TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
    TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 2), TrailingMinusNumbers:=True
 
Next i
 
MsgBox ("La conversion des données s'est correctement effectuée")
ActiveSheet.Range("A1").Select
 
ErrHandler: 'gestion des erreurs
 
If Err.Number <> 0 Then
    msg = "L'erreur #" & Str(Err.Number) & " a été générée par " & Err.Source & ". " & Chr(13) & Err.Description
    MsgBox msg
End If
 
End Sub

J'ai plusieurs problèmes à savoir :
1) mes dates sont transformées en format américain :cry:
2) les décimales nulles (soit 00) disparaissent :cry:
3) mes valeurs numériques avec virgule se transforment avec des points :cry:

Quelqu'un a t'il des idées ? L'aide n'est pas très claire et j'ai un peu de mal à tout comprendre dedans.

Par avance merci