Microsoft 365 Problème avec une macro

Sub Rabais10Pourcent()
'
' Rabais10Pourcent Macro
'
' Touche de raccourci du clavier: Ctrl+t
'
ActiveCell.FormulaR1C1 = "=SUM(RC[3]*0.9)"
ActiveCell.Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection.Font
.Name = "Arial Narrow"
.Size = 9
.Color = -16776961
.TintAndShade = 0

End With
Range("m1836").Select
With Selection.Font
.Name = "Arial Narrow"
.Size = 11
.Color = -16776961
.TintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "10%"

End Sub

Cliquez pour agrandir...