Private Sub Worksheet_Activate()
Application.EnableEvents = False 'désactive les évènements
Sheets("Feuil2").[A:B,D:F].Copy [A1]
Application.EnableEvents = True 'réactive les évènements
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Activate 'lance la macro
End Sub