Sub Copie_vers_Guide_de_reaction()
Dim Dossier As String, Fichier As String, Feuille As String
Application.ScreenUpdating = False
Dossier = ThisWorkbook.Path & "\"
Fichier = "Guide_de_reaction.xlsm"
Feuille = "histo"
Workbooks.Open Filename:=Dossier & Fichier
Sheets(Feuille).Cells.Clear
ThisWorkbook.Sheets("Feuil3").Cells.Copy ActiveWorkbook.Sheets(Feuille).[a1]
Workbooks(Fichier).Save
Workbooks(Fichier).Close
Application.ScreenUpdating = True
End Sub