Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A:A"), Target) Is Nothing Then
If Target.Cells.Count = 1 Then
Application.EnableEvents = False
'insertion ligne
Target.Offset(0, 1).Resize(1, 2).Insert Shift:=xlShiftDown
'incrémentation col B:C
Target.Offset(-1, 1).Resize(1, 2).AutoFill _
Destination:=Target.Offset(-1, 1).Resize(2, 2), _
Type:=xlFillDefault
'Total
Target.Offset(1, 2).Formula = "=Sum(C1:C" & Target.Row & ")"
Application.EnableEvents = True
End If
End If
End Sub