Sub Arrondir()
Dim P As Range, t, ncol%, i&, j%, x As Variant
Set P = [D3:F10] 'à adapter
t = P 'matrice, plus rapide
ncol = UBound(t, 2)
For i = 1 To UBound(t)
For j = 1 To ncol
x = t(i, j)
If IsNumeric(CStr(x)) Then t(i, j) = Round(x, IIf(x < 0.025 Or x > 0.1, 2, 3))
Next j, i
P.NumberFormat = "[<0.025]0.00;[>0.1]0.00;0.000" 'format nombre personnalisé
P = t
End Sub