Bonjour à tous,
Si je peux me permettre ...
Sub Report()
Set f = Sheets("COTE")
tablo = f.Range("H2:I" & f.Range("H" & Rows.Count).End(xlUp).Row)
ReDim tabloR(1 To UBound(tablo, 1), 1 To UBound(tablo, 2))
Range("B2").Resize(UBound(tablo, 1), UBound(tablo, 2)).ClearContents
Range("B2").Resize(UBound(tablo, 1), UBound(tablo, 2)).Interior.Color = xlNone
For i = 1 To UBound(tablo, 1)
tabloR(i, 1) = Replace(tablo(i, 1), ".", ",") * 1 ' << changements
tabloR(i, 2) = Split(tablo(i, 2), "-")(1)
Next i
Range("B2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tabloR
Range("B2").Resize(UBound(tablo, 1), 1).Interior.Color = RGB(255, 255, 0)
End Sub
ric