Private Sub Workbook_Open()
Application.ScreenUpdating = False
'tu nettoie la feuille avant de commencer car au fur et a mesure, tu va alourdir le fichier si tu empile les couches
Sheets("Feuil1").Select
ActiveSheet.DrawingObjects.Delete
Range("A1:Z30000").ClearContents
'la tu copie les diverses feuille ( a decupler si besoin), je pars du principe que tes feuilles sont verouillées
Sheets("Feuil2").Select
ActiveSheet.Unprotect
Range("A1:Z1000").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Sheets("Feuil3").Select
ActiveSheet.Unprotect
Range("A1:Z1000").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1000").Select
ActiveSheet.Paste
Sheets("Feuil3).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Sheets("Feuil4").Select
ActiveSheet.Unprotect
Range("A1:Z1000").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A2000").Select
ActiveSheet.Paste
Sheets("Feuil4").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Sheets("Feuil1").Select
'Tu as toutes tes infos sur la meme feuille., tu peux modifier sur chacune des feuilles, et a chaque ouverture, les infos fraiches sont collées sur ta feuille de recherche.
Application.ScreenUpdating = True
End Sub