bip dans une cellule excel

Bonjour,
si la cellule est dépendante d'une entrée dans une autre partie de la feuille, on peut utiliser une macro évènementielle, par exemple après saisie dans une cellule colonne A, si le résultat dans la cellule B1 dépasse la valeur 10 :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
If range("B1")> 10 then Beep
End If
End Sub