Problème vba compatibilité entre Excel 2010 et 2003

Bonjour!

J'ai (encore) un soucis sous excel ou plutôt la programmation Vba. De ce fait je crée mon quatrième (et j'espère dernier) topic pour cet exercice/microprogramme.

Bon d'un coté 4 questions pour 11 modules, un Userform et surtout un débutant qui découvre le vba sur le tas je pense que je suis excusable ^^.

Cette fois-ci mon problème est issu d'un manque de compatibilité entre excel 2010 et le 2003. je vous explique:

Dans mon usine à gaz, j'ai découvert que l'utilisation de certains événements tels que le Change, rendaient les boutons (annuler/répéter) inutilisables...

J'ai donc créé une méthode undo assez... simple qui stocke, pour chaque cellule d'une certaine plage, les données précédemment entrées.

Tout cela fonctionne sauf que pour le "Design" j'ai rajouté un compteur dans un rectangle pour montrer le nombre de "undo" encore disponibles.

Et là j'ai une erreur que je ne comprend pas:
"Impossible de définir la propriété Text de la classe Characters"

Feuil1.Shapes("IndUndo").TextFrame.Characters.Text = ComptUndo

Cela pourrait être compréhensible si la même commande utilisé 20 lignes plus haut ne fonctionnait pas non plus... Or pour augmenter la valeur du compteur ma formule fonctionne, mais pour la réduire non...

Voici mon code, cela pourra peut être aider aussi certains...

Public Sauv(7, 19, 10) As String, ModifAuto As Boolean, ListeUndo(19) As String, ComptUndo As Integer 

Sub SauvAction(Cellule As Range) 

If Cellule.Rows.Count = 1 And Cellule.Columns.Count = 1 Then 
    Ligne = Cellule.Row - 27 
    Colonne = Cellule.Column - 31 

    If Ligne >= 0 And Colonne >= 0 Then 
        If Sauv(Colonne, Ligne, 0) <> "" Then 
            For i = 0 To 9 
                Sauv(Colonne, Ligne, 10 - i) = Sauv(Colonne, Ligne, 9 - i) 
            Next i 
        End If 
        Sauv(Colonne, Ligne, 0) = Cellule.Value 
         
        If ListeUndo(0) <> "" Then 
            For i = 0 To 18 
                ListeUndo(19 - i) = ListeUndo(18 - i) 
            Next i 
        End If 
        ListeUndo(0) = Cellule.Address 
        ComptUndo = ComptUndo + 1 
    End If 
        Else 
            ComptUndo = 0 
            Erase Sauv 
            Erase ListeUndo 
        End If 
        Feuil1.Shapes("IndUndo").TextFrame.Characters.Text = ComptUndo 
End Sub 
-------------------------------------------------------------------------------------------------- 
Sub Undo() 

If ListeUndo(0) <> "" Then 
    ModifAuto = True 
    Ligne = Range(ListeUndo(0)).Row - 27 
    Colonne = Range(ListeUndo(0)).Column - 31 
     
    Range(ListeUndo(0)) = Sauv(Colonne, Ligne, 1) 
     
    For i = 0 To 9 
        Sauv(Colonne, Ligne, i) = Sauv(Colonne, Ligne, i + 1) 
    Next i 
       
    For i = 0 To 18 
        ListeUndo(i) = ListeUndo(i + 1) 
    Next i 
    ModifAuto = False 
    ComptUndo = ComptUndo - 1 
End If 
Feuil1.Shapes("IndUndo").TextFrame.Characters.Text = ComptUndo 
End Sub 
     

*modifauto: lorsque certaines macro s'exécutent, cela permet de limiter le nombre de commande à exécuter pour les événements change ou sélection change avec un
If Not ModifAuto

POur la première fonction la commande

Feuil1.Shapes("IndUndo").TextFrame.Characters.Text = ComptUndo

n'a pas de soucis.

mais pour la deuxième si. Et cela uniquement sur Excel 2003

Un grand Merci d'avance et une bonne journée!