Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Target, Range("C9:L134")).Address = Range("C9:L134").Address Then
If Target.Value = [A1] Or Target.Value = [B1] Then
Target.Value = vbNullString
MsgBox "Vous ne pouvez pas saisir dans la cellule " & _
ActiveCell.Address(False, False) & " les valeurs suivantes : " & Chr(13) _
& "(contenu de la cellule A1) " & [A1] & Chr(13) & "(contenu de la cellule B1) " & [B1], vbCritical, "Attention"
End If
End If
End Sub