Plage de cellule miroir

Bonjour,

Voici mon petit problème, je souhaiterai écrire une macro qui me permette d'avoir 2 plages de cellules dans 2 feuilles distinctes qui soient parfaitement identique (miroir) => lorsque je change la valeur d'une cellule de cette plage dans la feuille 1 cela change la valeur de la même cellule dans la feuille 2 et vice versa

exemple :

feuille 1 : plage de cellule (A1:C5) en miroir avec la même plage de la feuille 2

si je tape "chien" dans la cellule A2 de la feuille 1 => la cellule A2 de la feuille 2 prend la même valeur

si je tape "chat" dans la cellule A2 de la feuille 2 => la cellule A2 de la feuille 1 prend la valeur "chat" et non plus "chien"

voici la macro qui me permet de créer un miroir entre deux cellules définies d'une même page :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

Application.EnableEvents = False

[B1] = Target

ElseIf Target.Address = "$B$1" Then

Application.EnableEvents = False

[A1] = Target

End If

Application.EnableEvents = True

End Sub

J'ai essayé de la modifier pour obtenir ce que je recherche mais sans succès, si vous avez une solution à me proposer ce serait très sympa

merci d'avance de votre aide

Jo

Bonjour jo, forum,

Essaie avec ce code (à mettre dans le code de la 1ère feuille) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Feuille2 As Worksheet
    Set Feuille2 = Sheets("Feuil2")
    If Not Application.Intersect(Target, [A1:C5]) Is Nothing Then
        Feuille2.Range(Target.Address) = Target
    End If
End Sub