Sub test()
LigDeb = ActiveCell.End(xlUp).Row
LigFin = ActiveCell.Row
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R[" & LigDeb & "]C:R[" & LigFin - 1 & "]C)"
End Sub
Sub LancerLeTest()
Application.OnKey Key:="^&", procedure:="test"
End Sub