Sub AjoutAnnexe()
Dim classeurSource As Workbook, classeurDestination As Workbook
Set classeurDestination = ThisWorkbook
Set classeurSource = Application.Workbooks.Open(Application.GetOpenFilename(), , False, , , , , , , True)
With classeurDestination
.Activate
Sheets.Add After:=Sheets(Sheets.Count)
classeurSource.Sheets(1).UsedRange.Copy
Sheets(Sheets.Count).Paste Link:=True
End With
ActiveWindow.DisplayZeros = False
classeurSource.Close False
End Sub