aide sur erreur d'exécution " 9 " sur textbox

Bonjour à tous

mon probléme, lorsque que j'actionne mon bouton Exit, un msgbox apparait, ("voulais vous imprimer feuille de report journalier") quand je clic sur Oui un message d'erreur n°9 apparait et dans VB elle me met la ligne ( sheets (" report journalier").select en jaune😡

Quelqu'un aurait il une réponse a ce soucis.🙂

Private Sub CommandButton1_Click()
Dim msg, style, title, réponse

With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
WS1.AutoFilterMode = False
ActiveSheet.Protect Password:="tony", DrawingObjects:=True, Contents:=True, Scenarios:=True
Unload Me
'***********************************************************

msg = "Voulez-vous imprimer la feuille report journalier"
style = vbYesNo + vbQuestion + vbDefaultButton2
title = "Imprimer"
réponse = MsgBox(msg, style, title)

If réponse = vbYes Then


Sheets("report journalier").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'**********************************************************************
Sheets("selections").Select


End Sub

merci d'avance
papattts

L'expérience de chacun est le trésor de tous