re,
à tester,
Sub test()
Dim i As Long, t, t1, t2, t3
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
t = Split(Cells(i, 1), ",")
t1 = t(0) & "." & t(1)
t2 = t(2) & "." & t(3)
Cells(i, "D") = CDbl(t1)
Cells(i, "E") = CDbl(t2)
Erase t
Next i
End Sub
Re,
On y est presque, Merci beaucoup, j'ai une erreur sur cette ligne : Cells(i, "D") = CDbl(t1)
L'erreur est incompatiblité de type
J'ai retiré la conversion de type, j'obtiens presque le résultat, sauf qu'il ne prend pas assez de chiffres :
901,7039203 0,074734305
905,6102713 0,078900022
909,5123949 0,075588281
913,4102912 0,076708611
917,3039602 0,074278374
921,1934018 0,077809648
925,078616 0,078150497
Merci pour l'aide.