Re
Essayez d'effacer le contenu de C15 ?
voici le code, chez moi ça fonctionne très bien
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C15:C16")) Is Nothing Then
Dim cell As Range
For Each cell In Target
If cell.Address = Me.Range("C15").Address Then
MsgBox "Changement détecté dans la Zone A !"
ElseIf cell.Address = Me.Range("C16").Address Then
MsgBox "Changement détecté dans la Zone B !"
End If
Next cell
End If
End Sub