Macro qui marche mais qui me met un message d'erreur

Bonjour,

J'ai une macro qui change la couleur de police d'un chiffre dans deux zone texte, suivant le pourcentage se trouvant sur une autre feuille dans une cellule.

Dans un module, j'ai la macro

Sub changercouleur()

' Changercouleur Macro
Dim cellule

cellule = Sheets("Calcul").Range("BC4")

  With ActiveSheet.Shapes.Range(Array("TextBox 12", "TextBox 24"))
    'With ActiveSheet.Shapes.Range(Array("TextBox 12","TextBox 24" ))

      If cellule < 1 Then
        With .TextFrame2.TextRange.Font.Fill
          .Visible = msoTrue
          .ForeColor.ObjectThemeColor = msoThemeColorAccent2
          .ForeColor.TintAndShade = 0
          .ForeColor.Brightness = 0
          .Transparency = 0
          .Solid
        End With
      Else
        With .TextFrame2.TextRange.Font.Fill
          .Visible = msoTrue
          .ForeColor.ObjectThemeColor = msoThemeColorText1
          .ForeColor.TintAndShade = 0
          .ForeColor.Brightness = 0.150000006
          .Transparency = 0
          .Solid
        End With
      End If
    End With
  End Sub

Et sur la feuille ou se trouve les deux zones textes, la macro d'appel

Private Sub Worksheet_Calculate()
  changercouleur
End Sub

Le souci, c'est que la macro fonctionne si je reste sur la feuille des zones textes, mais dés que je veux sur une autre feuille, j'ai le message suivant

Erreur d’exécution 1004, l'élément portant ce nom est introuvable.

Si je fais débogage, il me renvoi à la ligne de code :

  With ActiveSheet.Shapes.Range(Array("TextBox 12", "TextBox 24"))

Voilà, le souci

Merci pour votre aide

Bonjour

A la place de

ActiveSheet 

utilise

Sheets("Nom De La feuille")

Nom De La feuille est le nom de la feuille qui contient les formes à modifier

Banzai64,

Merci encore car cela a réglé ce problème.

J'ai mis sur le forum aujourd'hui 4 soucis que j'aimerai bien régler, et tu viens d'en régler un qui me tenait vraiment à Cœur,

Vraiment content

Merci à toi encore une fois