Bonjour,
Jean-Marc répond !...
Public Sub InsertColumn()
Dim n As Long
Application.ScreenUpdating = False
With ActiveSheet
n = .Cells(.Rows.Count, 1).End(xlUp).Row
.Columns(3).Insert Shift:=xlToRight
.Cells(3).Value = "Débit-Crédit"
With .Cells(2, 3).Resize(n - 1)
.FormulaR1C1 = "=-RC[-2]+RC[-1]"
.Value = .Value
.NumberFormat = "[Blue]_-* #,##0.00_-;[Red]-* #,##0.00_-;_-* ""-""_-;"
End With
.Cells(1).Resize(, 4).EntireColumn.AutoFit
End With
End Sub