Bonjour,
Bonjour Amadéus
Pourquoi faire hurler? Grâce à toi, j'ai compris ce que voulait Florent..........
A insérer dans le code du Workbook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If Sh.Name = "Feuil1" And Target.Address = "$C$5" Then Sheets("Feuil2").[D8] = Target
If Sh.Name = "Feuil2" And Target.Address = "$D$8" Then Sheets("Feuil1").[C5] = Target
Application.EnableEvents = True
End Sub
PS : Florent, le lien donné par Amadéus pourrait t'être utile, pour de futures questions...