la solution de Pierre93 est super mais convertie toute les colonnes.
j'aimerais bien convertir toute les colonnes sauf la 1er ligne.
j'utilise ce code:
VB:
Sub convertir()
Dim I As Integer
Dim dercol As Integer
dercol = Cells(2,Columns.Count).End(xlToLeft).Column
For I = dercol To 1 Step -1
Sheets("SYNTHESE").Columns(I).TextToColumns , FieldInfo:=Array(1, 1)
Next I
End Sub
Auriez vous une idée car je bloc pour le reste de mon programme
oui j'ai idée
Il suffit de travailler sur les ranges (plutôt que sur les colonnes) à partir de la ligne 2 de chaque colonne.
Un truc du genre
VB:
Sub convertir()
Dim I As Long
Dim dercol As Long
dercol = Cells(2, Columns.Count).End(xlToLeft).Column
For I = dercol To 1 Step -1
Sheets("SYNTHESE").Range(Cells(2, I), Cells(Rows.Count, I)).TextToColumns , FieldInfo:=Array(1, 1)
Next I
End Sub