Propriété .onaction de button

Version imprimable

Bonjour
j'ai fait le code suivant sous xls 2007 pour créer un bouton dans une feuille:
Code:

1 2 3 4 5 6 7 8 9 10 11 With Range("E" & LigDeb) PosG = .Left PosH = .Top End With Hauteur = 50 Longueur = 150 With ActiveSheet.Buttons .Add(PosG, PosH, Longueur, Hauteur).Select .OnAction = "ValidEtal" 'Nom d'un sub qui met la feuille en forme avant impression .Caption = "Valider" End With
Ce code fonctionne très bien sur un PC équipé d'Excel 2007 mais il plante sur 2 PC Excel 2010 et Excel 2013. Le message d'erreur est:
"Erreur d'exécution 1004. Impossible de définir la propriété OnAction de la classe Buttons."

Merci pour votre aide.

Code:

1
2
3
4
With ActiveSheet.Buttons.Add(PosG, PosH, Longueur, Hauteur)
    .OnAction = "ValidEtal"                           'Nom d'un sub qui met la feuille en forme avant impression
    .Caption = "Valider"
End With

04/06/2014, 00h23
cmand

OK, merci beaucoup, ça marche!
y a-t-il beaucoup d'incompatibilités de ce genre entre les versions? Je rencontre d'autres problèmes de plantage avec 2010 sur des variables non déclarées ou l'exécution d'une macro par une macro d'un autre classeur alors que ça fonctionnait très bien sous 2007.