Apparition d'un objet

Bonjour à tous,
Je cherche à faire apparaître ou non une flèche selon la valeur d'une cellule.
J'ai donc tapé le code suivant sous VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$44" Then
Select Case Target.Value
Case Is < 1: Shapes("Trait 26").Visible = False
Case Else: Shapes("Trait 26").Visible = True
End Select
End Sub

Où $D$44 est ma cellule cible et "Trait 26" est ma flèche. Ca fonctionne à première vue sauf que je suis obligé de modifier manuellement la cellule pour qu'elle apparaisse (pour simplifier si je tapes 0 elle n'apparait pas si je tapes 1 elle apparait).
Or la valeur de ma cellule est relié à une formule qui se trouve dans une autre feuille.
J'aimerais donc que la flèche apparaisse ou pas automatiquement en fonction du résultat du calcul de l'autre feuille.
Est-ce que quelqu'un a une petite idée ?
merci d'avance