Disparition bouton macro

Bonjour,
Je travail sur un fichier excel de gestion de commandes.
Plusieurs boutons pour filtrer diverses info (commande, stock, gamme, vente , ...)
A chaque utilisation de bouton, je "défiltre" l'utilisation du bouton précédent.

Sub StockNegatif()
'
' StockNegatif Macro
' Macro enregistrée le 16/03/2008
'
ActiveSheet.Shapes("button 273").Select
'Filtre ou non filtre
Dim Rg As Range
On Error Resume Next
Set Rg = Worksheets("catfourn").AutoFilter.Range
If Err = 0 Then
For Each C In Rg.Columns
'C.column représente la colonne où est appliquée le filtre auto.
If AutoFilter.Filters().On = True Then
Selection.AutoFilter

Rows("8:8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=13, Criteria1:="<0"
Selection.AutoFilter Field:=15, Criteria1:=">0"
Range("a9").Select
Range("a8").Select

Exit For
End If
Next
Else
Err = 0
' Stock Negatif
Rows("8:8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=13, Criteria1:="<0"
Selection.AutoFilter Field:=15, Criteria1:=">0"
Range("a9").Select
Range("a8").Select
End If
Set Rg = Nothing
Range("a9").Select
Range("a8").Select
End Sub

Cela marche parfaitement bien jusqu'au moment où à l'appui sur un bouton, tous les boutons disparaissent et plante mon fichier excel dans la foulée.😡
Je ne sais pas comment faire pour stopper cela, sachant que je ne le contrôle pas.
Est ce que quelqu'un peut m'aider ? 😕
Je joins une de mes macros pour exemple (elles sont toutes bésées sur ce modele)

Merci 🙂

Fabien