Private Declare PtrSafe Function BeepApi Lib "kernel32" Alias "Beep" _
(ByVal Frequence As Long, ByVal Duree As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case True
Case Target.Count > 1
Case Not Intersect(Target, Range("A9:A22")) Is Nothing
Target.Offset(, 1).Calculate
If Target.Offset(, 1) > 0 Then
BeepApi 400, 300
BeepApi Target / 3, 200
BeepApi 400, 300
Target.Offset(, 1).Speak ' @bhbh idea
End If
End Select
End Sub