erreur 2147417848

bonsoir lorsque je lance cette macro suivante, j'ai une erreur 2147417848, erreur automation, l'objet invoqué s'est déconnecté de ses clients et je ne comprends pas pourquoi. Si vous pouviez m'aider ça me serait d'un grand secours .
Application.ScreenUpdating = False
Sheets("boissons").Select
Range("y23").Select
If ActiveCell.Value = 0 Then

MsgBox (" Impossible de valider ta demande,il n'y pas de conso saisies"), 48, "Casino Barrière De Dinard - information"
ComboBox1.SetFocus

Else




Msg = "Voulez vous vraiement faire une remise à zéro?" ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "confirmation de Remise à zéro" ' Définit le titre.
Help = "" ' Définit le fichier d'aide.
Ctxt = 1000 ' Définit le contexte de
' la rubrique.
'Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui"
'Effectue une action.

Sheets("boissons").Select
Range("x23:y23").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=8
Range("ae9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("ae9:af9").Select
Selection.Copy
Range("ae11").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False





Range("ae9:af9").Select
Selection.ClearContents

Range("y26:y500").Select
Selection.ClearContents

Range("x21").Select
ActiveCell.FormulaR1C1 = 0

Range("x21").Select
Selection.Copy
Range("ah4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("ae10:af2000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("ah3:ai4"), CopyToRange:=Range("ah10:ai20000"), Unique:=False

Range("z9").Select
Selection.Copy
Range("z10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False




End If
End If

End Sub