la solution qui n'est pas de moi pour ceux que cela interresse
d'un certain
i20100 en le remerciant
copier les macro suivante:
sur la page code de la Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheets("Feuil2").Range("A1") = Target.Value
Sheets("Feuil3").Range("A1") = Target.Value
Application.EnableEvents = True
End If
End Sub
sur la page code de la Feuil2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheets("Feuil1").Range("A1") = Target.Value
Sheets("Feuil3").Range("A1") = Target.Value
Application.EnableEvents = True
End If
End Sub
sur la page code de la Feuil3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheets("Feuil1").Range("A1") = Target.Value
Sheets("Feuil2").Range("A1") = Target.Value
Application.EnableEvents = True
End If
End Sub