P1C3 - AVDJ.vb

Sub Mise_a_jour()
'
' Mise_a_jour Macro
'
    Columns("K:K").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "CA"
    Range("K2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
    Range("K2").Select
    Selection.AutoFill Destination:=Range("K2:K45")
    Range("K2:K45").Select
    Selection.NumberFormat = "#,##0.00 $"
    Selection.NumberFormat = "#,##0.0 $"
    Selection.NumberFormat = "#,##0 $"
    Columns("K:K").Select
    Range("K2").Activate
    With Selection.Font
        .ThemeColor = xlThemeColorAccent5
        .TintAndShade = 0
    End With
End Sub