Ajout Bip

Bonjour,

J'utilise une macro de comptage (incrémentation et copie).

Je voudrais ajouter un Bip Bip (mais pas un bip permanent !!) qui me signalerait que la variable O a atteint un seuil (par exemple 100), car je ne suis pas toujours devant l'écran.

Voici le code (merci Tototiti):

Sub Clic()
Dim B As Long, O As Integer
Application.ScreenUpdating = False
[CM1] = 0
Randomize
Application.Calculation = xlCalculationManual
B = 0
While B < 1000
Application.Calculate
B = B + 1
If [CM3] > O Then
Range("U5:AD5").Copy
Range("U2").PasteSpecial Paste:=xlPasteValues
O = [CM3]: [CM1] = O
Randomize
[A1].Select
End If
Application.StatusBar = " Max : " & O
Wend
Application.ScreenUpdating = True
End Sub

Merci de votre aide.