Je ne sais pas si le code est très "Chrétien", mais il fonctionne : A placer dans la feuille concernée :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "Clé de local EDF" Then MsgBox ("Les clés ont été distrubuées aux commerces")
If Target.Value = "Autre chose" Then MsgBox ("Message Désiré")
End Sub