MACRO conversion de .4 en 0,4, de .67 en 0,67, de .8 en 0,8 ecetera....

bonjour à la communauté

je voudrais votre avis sur ma macro

je reçois un tableau de 41 colonnes tous les mois ( nombre de colonnes ne variera pas - les lignes vont s'accroître tous les mois)

à côté de la Colonne S je voudrais rajouter une autre colonne

comme suit :

colonnes S colonne T

.4 0,4
.33 0,33
.25 0,25
1 1
0 0

les chiffres de la colonne S vont toujours de 0 à 1

j'ai enregistré la macro avec l'enregistreur
est-ce qu'elle vous semble valable?
comment faire pour que la colonne T aille jusqu'à la ligne 100.000 par exemple?

merci bien

Sub testcolonnes()
'
' testcolonnes Macro
' ajout 0, à la place du .
'

'
Columns("T:T").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("T1").Select
ActiveCell.FormulaR1C1 = "etp"
Range("T2").Select
ActiveCell.FormulaR1C1 = ""
Range("T2").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],"" ."",""0,"",1)"
Range("T2").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],""."","" 0,"",1)"
Range("T2").Select
Selection.AutoFill Destination:=Range("T2:T7"), Type:=xlFillDefault
Range("T2:T7").Select
Range("T7").Select
Selection.AutoFill Destination:=Range("T7:T46"), Type:=xlFillDefault
Range("T7:T46").Select
ActiveWindow.SmallScroll Down:=-36
Range("R14").Select
End Sub