Bonjour,
Une proposition.
Cdlt.
Public Sub ConvertData()
Dim lastRow As Long, i As Long
Dim tbl As Variant, v
With ActiveSheet
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
tbl = .Cells(2, 1).Resize(lastRow - 1)
For i = LBound(tbl) To UBound(tbl)
v = VBA.Split(tbl(i, 1), "(")
v = Val(v(0))
tbl(i, 1) = v
Next i
With .Cells(2, 1).Resize(lastRow - 1)
.Value = tbl
.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 ;"
End With
lastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
tbl = .Cells(2, 3).Resize(lastRow - 1)
For i = LBound(tbl) To UBound(tbl)
tbl(i, 1) = Val(tbl(i, 1))
Next i
With .Cells(2, 3).Resize(lastRow - 1)
.Value = tbl
.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 ;"
End With
End With
End Sub