Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim plage As Range, destination
Set plage = Feuil1.UsedRange 'plage à adapter, Feuil1 => CodeName
destination = Array("Feuil3", "Feuil4", "Feuil5") 'CodeNames à adapter
If IsNumeric(Application.Match(Sh.CodeName, destination, 0)) Then plage.Copy Sh.Range(plage.Address)
End Sub