Utilisation incorrecte de la propriété

Bonjour, j'ai ce code :
Sub Effacer_article()
'
' Effacer_article Macro
'

Supprimermsg = MsgBox("Supprimer cet article ?", vbOK, "Opération irréversible...")
If Supprimermsg = vbCancel Then
Exit Sub
Else

If Sheets("Liste articles").Range("G1") = 2 Then
Supprimermsg = MsgBox("Il doit rester au moins 2 articles !", vbOKOnly, "Opération irréversible...")
Exit Sub
End If
Application.ScreenUpdating = False
Sheets("Liste articles").
ActiveWindow.SelectedSheets.Delete

nbarticle = Sheets("Liste articles").Range("H1") + 1
Sheets("Liste articles").Range("A" & nbarticle).EntireRow.Delete
Sheets("Liste articles").Range("G1") = Sheets("Liste articles").Range("G1") - 1


Sheets("Liste articles").Range("H1") = 1
Call AfficheArticle

End If
End Sub

C'est un bouton afin de supprimer un article sur un classeur de gestion de stocks. J'aurais aimé savoir pourquoi vba affiche "l'utilisation de la propriété est incorrecte", alors que le code est "normalement" bon
Cordialement