Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Err_SheetChange
Dim Cel As Range
Application.EnableEvents = False
If Sh.Name = "Feuil1" Then '********
For Each Cel In Intersect(Target, [A1:C5])
Sheets("Feuil2").Cells(Cel.Row + 5, Cel.Column + 3) = Cel '********
Next Cel
End If
If Sh.Name = "Feuil2" Then '********
For Each Cel In Intersect(Target, [D6:F10])
Sheets("Feuil1").Cells(Cel.Row - 5, Cel.Column - 3) = Cel '********
Next Cel
End If
Sort_SheetChange:
Application.EnableEvents = True
Exit Sub
Err_SheetChange:
MsgBox Err.Description, , "Erreur Excel n°" & Err.Number
End Sub