XL 2016 Multiplication de plusieurs cellules au clic sur un bouton

Sub X_24()
Application.ScreenUpdating = False
[A1] = 24
[A1].Copy
[A7:C9].PasteSpecial xlPasteValues, Operation:=xlMultiply 'plage à adapter
[A1] = ""
[A1].Select
Application.CutCopyMode = 0
End Sub

Sub DIV_24()
Application.ScreenUpdating = False
[A1] = 24
[A1].Copy
[A7:C9].PasteSpecial xlPasteValues, Operation:=xlDivide 'plage à adapter
[A1] = ""
[A1].Select
Application.CutCopyMode = 0
End Sub

Sub X_24()
Dim P As Range, tablo, ncol%, i&, j%, x$
Set P = [A7:C9] 'à adapter
tablo = P.Resize(P.Rows.Count + 1) 'matrice, plus rapide, au moins 2 éléments
ncol = UBound(tablo, 2)
For i = 1 To UBound(tablo) - 1
    For j = 1 To ncol
        x = CStr(tablo(i, j))
        If IsNumeric(x) Then tablo(i, j) = x * 24
Next j, i
P = tablo
End Sub

Sub DIV_24()
Dim P As Range, tablo, ncol%, i&, j%, x$
Set P = [A7:C9] 'à adapter
tablo = P.Resize(P.Rows.Count + 1) 'matrice, plus rapide, au moins 2 éléments
ncol = UBound(tablo, 2)
For i = 1 To UBound(tablo) - 1
    For j = 1 To ncol
        x = CStr(tablo(i, j))
        If IsNumeric(x) Then tablo(i, j) = x / 24
Next j, i
P = tablo
End Sub

 Sub test1()
PasteSpOP xlPasteSpecialOperationDivide
End Sub
Sub test2()
PasteSpOP xlPasteSpecialOperationMultiply, 2
End Sub

Sub test2b()
PasteSpOP 4, 2
End Sub
Private Sub PasteSpOP(op As XlPasteSpecialOperation, Optional oper As Double = 24)
Cells(Rows.Count, Columns.Count) = oper
Cells(Rows.Count, Columns.Count).Copy
Set r = Selection
r.PasteSpecial xlPasteValues, Operation:=op
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Choix]) Is Nothing And [Choix] <> "" Then Macro
End Sub

Sub Macro()
Application.ScreenUpdating = False
[A1] = 24
[A1].Copy
[A7:C9].PasteSpecial xlPasteValues, Operation:=IIf([Choix] = "X 24", xlMultiply, xlDivide) 'plage à adapter
[A1] = ""
[Choix].Select
Application.CutCopyMode = 0
End Sub

Sub X_24()
Application.ScreenUpdating = False
[A1] = 24
With [A7:C9] 'plage à adapter
    .Replace "", "µ", xlWhole 'remplace les vides par µ
    [A1].Copy
    .PasteSpecial xlPasteValues, Operation:=xlMultiply
    .Replace "µ", "" 'efface les µ
End With
[A1] = ""
[A1].Select
Application.CutCopyMode = 0
End Sub

Sub DIV_24()
Application.ScreenUpdating = False
[A1] = 24
With [A7:C9] 'plage à adapter
    .Replace "", "µ", xlWhole 'remplace les vides par µ
    [A1].Copy
    .PasteSpecial xlPasteValues, Operation:=xlDivide
    .Replace "µ", "" 'efface les µ
End With
[A1] = ""
[A1].Select
Application.CutCopyMode = 0
End Sub