<p>Utilisez l’événement <code>Worksheet_Change</code> :</p>
<pre data-code-wrap="vba"><code class="lang-vba">Private Sub Worksheet_Change(ByVal Target As Range)
' Vérifier si la cellule modifiée est A1
If Not Intersect(Target, Range("A1")) Is Nothing Then
' Votre code ici
MsgBox "La cellule A1 a été modifiée !"
End If
End Sub
</code></pre>
<p>Ce code doit être placé dans le module de la feuille (double-cliquez sur la feuille dans l’éditeur VBA), pas dans un module standard.</p>