Lancement automatique macro lorsqu'une cellule est modifiée

Bonjour,

Je réalise un projet sur Excel et sur une feuille, j'ai deux tableaux. J'ai des boutons d'option (cases rondes sur laquelle il faut cliquer pour l'activer) en haut de la page et en fonction du bouton coché, j'essaie de masquer l'un des deux tableaux.
Mes boutons font varier la valeur de la case A458 tout en bas de ma feuille. J'ai essayé la macro suivante, qui ne marche pas

Private Sub worksheet_change(ByVal Target As Range)

If Not Application.Intersect(Range("A458"), Range(Target.Address)) Is Nothing Then
Call Tables_aliments_bouton_fourrage

Sub Tables_aliments_bouton_fourrage()

If Rows("5").Columns("A").Value = "Fourrages" Then
    Application.ActiveSheet.Range("tables_aliments_concentrés").Rows.Hidden = True
    ActiveSheet.Range("tables_aliments_fourrages").Rows.Hidden = False
    Rows("256").Hidden = True
Else
    Application.ActiveSheet.Range("tables_aliments_fourrages").Rows.Hidden = True
    ActiveSheet.Range("tables_aliments_concentrés").Rows.Hidden = False
    Rows("256").Hidden = False
End If
End Sub

End Sub

Je bloque depuis un moment donc si vous avez une idée du problème, je suis preneur!

Merci d'avance :)