Cellules forcément égales

Bonjour à toutes et à tous.
Désolé si cela a déjà été posé (et répondu) mais mes recherches sont infructueuses.

Problème simple: Prenons les cellules A1 et B2.

Si je remplis la cellule A1, je veux que B2 soit automatiquement égale.
Si je remplis la cellule B2, je veux que A1 soit automatiquement égale.
Si je change l'une des deux, je veux que l'autre soit aussi modifiée (et toujours égale).

J'arrive plus ou moins à faire les 2 premières contraintes (avec une référence circulaire toute simple) mais pas la troisième.
Si vous pouvez m'aider je suis preneur. Merci!

Bonsoir @karlvs ,

Avec une procédure évènementielle à placer dans le module de code associé à la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error GoTo FIN
   Application.EnableEvents = False
   If Target.Address(0, 0) = "A1" Then [b2] = Target Else If Target.Address(0, 0) = "B2" Then [a1] = Target
FIN:
   Application.EnableEvents = True
End Sub

Merci beaucoup pour la réponse hyper rapide.

Je vais essayer de modifier cela car je me rends compte que j'ai une autre contrainte, c'est que, après un tri, les cellules A1 et B2 peuvent être amenées à bouger oh!

Mais en tous cas, ça va déjà m'aider un max!

Re,

Une généralisation à un nombre quelconque de cellules. Indiquez dans la constante "LesCellules" les adresses des cellules concernées (ou plage) séparées par une virgule.

Le code :

Private Sub Worksheet_Change(ByVal Target As Range)
Const LesCellules = "A1,b2,D3,G2,g5,D6,J3,J6,L2,e8:g9"
   If Target.Count > 1 Then Exit Sub
   If Intersect(Target, Range(LesCellules)) Is Nothing Then Exit Sub
   On Error GoTo FIN
   Application.EnableEvents = False
   Range(LesCellules) = Target
FIN:
   Application.EnableEvents = True
End Sub