Bonjour,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Auto_Open()
Application.WhenRecalculate = "Alarme"
End Sub
 
Sub Alarme()
If Sheets("Résultats").Cells(2, 3) > 100 Then
For Sound = 1 To 3
Bip
For Delay = 1 To 200000
Next Delay
Next Sound
End If
End Sub
Cette macro ne fonctionne pas, j'ai du faire une erreur qq part.