j'ai souligne la ligne en jaune.
Select Case Err.Number
Case 1004
Workbooks("Test Truck Control.xls").Activate Application.ScreenUpdating = False
Worksheets("Quai 300").Activate
ActiveWindow.DisplayWorkbookTabs = True
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
.DisplayCommentIndicator = xlNoIndicator
End With
J'ai change le nom du classeur, mais pas celui des feuilles.
Merci.