Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Err_Workbook_SheetChange
Dim F As Worksheet
Application.EnableEvents = False
If Not (Sh.Name Like "entit*") Or Intersect(Target, [H4:AA19]) Is Nothing Then Exit Sub
For Each F In Sheets
If F.Name Like "entit*" Then F.Range(Target.Address) = Target
Next F
Sort_Workbook_SheetChange:
Application.EnableEvents = True
Exit Sub
Err_Workbook_SheetChange:
MsgBox Err.Description, vbDefaultButton1 + vbOKOnly, "Erreur N°" & Err.Number
Resume Sort_Workbook_SheetChange
End Sub