XL 2019 des calculs dans un tableau ("array") ?

Sub Arrondir()
   ' Pour l'exemple, remplit A de valeurs aléatoires
    [C2:C10000].ClearContents
    Application.ScreenUpdating = False
    For i = 2 To 10000
        Cells(i, "A") = 100 * Rnd
    Next i
    Application.ScreenUpdating = True
    ' Arrondir valeur, ici 1 chiffre après la virgule
    Application.ScreenUpdating = False
    tablo = Range("A2:A" & Range("A1000000").End(xlUp).Row) ' Transfert données colonne A dans array
    For i = LBound(tablo) To UBound(tablo)                  ' Pour toutes les lignes de l'array
        tablo(i, 1) = Round(tablo(i, 1), 1)                 ' Arrondir sa valeur
    Next i
    [C2].Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo ' Reverser ce tablo en colonne A
End Sub

Option Explicit

Sub Bouton1_Cliquer()
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
  Dim T, précision#, i&: précision = 0.2: n = n - 1
  T = Application.Transpose([A2].Resize(n))
  For i = 1 To n
    T(i) = Int(T(i) / précision) * précision
  Next i
  Application.ScreenUpdating = 0
  Columns(3).ClearContents: [C1] = "Mon résultat"
  [C2].Resize(n) = Application.Transpose(T)
End Sub