Sub test()
Dim Tablo()
Dim Plage As Range, Cel As Range
With Worksheets("Relevé")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set Plage = .Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row)
Tablo = Plage
For i = 1 To UBound(Tablo, 1)
For j = 1 To UBound(Tablo, 2)
If Abs(Tablo(i, j)) >= 10 Then Tablo(i, j) = Tablo(i, j) / 10 ^ (Len(Abs(Tablo(i, j))) - 1)
Next j
Next i
.Range("A2").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End With
End Sub