quadriallage automatique

Private Sub Worksheet_Change(ByVal c As Range)
    Application.ScreenUpdating = 0: Application.EnableEvents = 0
    If Not Intersect(c, Range(Range("a5"), Range("a5").End(xlDown))) Is Nothing And c.Count = 1 Then
        c.Resize(2, 7).Borders.Weight = 3
        Range("toto").Cut Destination:=Range("toto").Offset(1, 0)
    End If
    Application.ScreenUpdating = -1: Application.EnableEvents = -1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = 0: Application.EnableEvents = 0
    [toto] = ""
    [toto].Range("a1") = Application.WorksheetFunction.Sum(Range("c:c"))
    [toto].Range("b1") = Application.WorksheetFunction.Sum(Range("d:d"))
    [toto].Range("c1") = Application.WorksheetFunction.Sum(Range("e:e"))
    [toto].Range("d1") = Application.WorksheetFunction.Sum(Range("f:f"))
    [toto].Range("a3") = [toto].Range("a1") + [toto].Range("b1") + [toto].Range("c1") + [toto].Range("d1")
    Application.ScreenUpdating = -1: Application.EnableEvents = -1
End Sub