convertir colonnes texte en nombre sauf la 1er ligne[RESOLU]

[regnum]

bonjour a tous

j'ai parcouru pas mal de forum sur le sujet et j'ai trouvé mon bonheur sur celui ci.
https://www.excel-downloads.com/threads/vba-convertir-format-texte-en-nombre-sans-boucle.160858/

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:

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

merci a tous

 

[Staple1600]

Bonsoir à tous

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

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

 

[regnum]

re a tous

merci Staple1600 , je me doutais bien que c'était un truc de ce genre...
je n'arrivais pas à le synthétiser.
ça fonctionne à merveille

encore un grand merci