erreur 1004

Bonsoir le forum.

Je débute en vba.

J'ai un fichier contenant deux feuilles.( feuille 1 "compte"; feuille 2 "résultasts)
j'ai du vba sur les deux feuilles

sur la feuille 1 "compte" code:

Private Sub CommandButton2_Click()
Sheets("Résultats").Activate
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$5" Then
Sheets("Résultats").Range("B9").CurrentRegion.Offset(1, 0).Clear
Sheets("Compte").Range("B10").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Compte").Range("D4😀5"), CopyToRange:=Sheets("Résultats").Range("B8:I8")
End If
End Sub

sur la feuille 2 "résultats" code:
Private Sub CommandButton1_Click()
Sheets("Compte").Activate
End Sub

j'aimerai protéger différentes cellules des deux feuilles;
pour cela outil, protection et validation.

le probléme et que la macro se bloque au niveau de
Sheets("Compte").Range("B10").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Compte").Range("D4😀5"), CopyToRange:=Sheets("Résultats").Range("B8:I8")

Comment éviter le probléme.
J'ai parcouru le forum et j'ai utilisé des codes mais sans résultat!

Merci de me lire.