Macros VBA EXCEL

Bonjour, je précise que je suis sur Excel 2007

Je viens de créer une macro tout simple.... explication:

Je sélectionne l'onglet développeur, je clique sur enregistrer une macro, puis...

Je cliques sur l'onglet "insertion" > "Formes" et je cliques sur un "SMILEY"...

Je le place sur ma feuille, puis je lui donne une couleur jaune !
puis je sélectionne la cellule A1, et je coupe l'enregistrement de ma macro....

Mon problème est...

En retournant pour lire dans mon éditeur VBA ?
L'unique chose qu'il m'a enregistré est ....

Range("A1").Select.
--------------------------------------------------------------------------------------------------------------------
Il aurait du me dire :

(manque çà) > ActiveSheet.Shapes.AddShape(msoShapeSmileyFace, 190, 100, 72#, 72#).Select

(Et çà) > Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

Range("A1").Select
--------------------------------------------------------------------------------------------------------------------
Pourquoi il ne m'a enregistré que : Range("A1").Select