Sub Convertir()
Dim tablo, i&
With [A1].CurrentRegion
tablo = .Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
For i = 2 To UBound(tablo)
tablo(i, 1) = Val(Replace(tablo(i, 1), ",", "."))
Next
.NumberFormat = "0.00000"
.Value = tablo
End With
End Sub