Sub formate()
tablo = Range("L2:L" & Range("L" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
tablo(n, 1) = CDbl(Replace(tablo(n, 1), ".", ","))
Next
Range("L2").Resize(UBound(tablo, 1), 1) = tablo
tablo = Range("I3:I" & Range("I" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
tablo(n, 1) = CDbl(Replace(tablo(n, 1), ".", ","))
Next
Range("I2").Resize(UBound(tablo, 1), 1) = tablo
End Sub