Private Sub Worksheet_Activate()
Dim Dossier As String, Fichier As String
Application.ScreenUpdating = False
Sheets("Feuil1").[B8:E8].Copy [B8]
Dossier = ThisWorkbook.Path & "\" '**** A adapter
Fichier = "Copie de nougatClasseur2.xlsm" '*****A adapter
Workbooks.Open Filename:=Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").[B14:D14].Copy ActiveWorkbook.Sheets("Feuil2").[b14]
Workbooks(Fichier).Close True
Application.ScreenUpdating = True
End Sub