Raccourci clavier pour "Coller les formats"

Bonjour Forum !

Une déclinaison d'un sujet similaire traité dans un autre fil :

je voudrais attribuer un raccourci-clavier à la commande "Coller les formats".

Ça semble tout bête mais je n'y arrive pas...

Mon problème c'est que je ne sais pas le faire autrement qu'en enregistrant une macro puis en attribuant un raccourci à cette macro.

Ça donne ça :

Sub Coller_formats()
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Et quand je lance ma macro (le presse-papier contient la cellule-source et une autre cellule est activée), j'obtiens un message d'erreur :

Erreur d'exécution '1004'

La méthode PasteSpecial de la classe Range a échoué.

...ce qui pour moi est du chinois.

Si quelqu'un a des lumières là-dessus...

Bonjour

No problemo

Je sélectionne la source : Ctrl + c

Je sélectionne la destination : Mon raccourci clavier et hop le format est copié

Le message apparait si pas de source copiée (tu dois voir les pointillés clignotants autour de la source)

Tu as raison.

Mon problème venait du fait que, pour tester la macro, je l'exécutais en faisant Alt+F8, puis en sélectionnant ma macro, ce qui, apparemment, vide le presse-papier sans le dire.

Merci.