Difficultés avec CommandButton [Résolu]

Bonjour,

Dans ma feuille j'ai 4 CommandButtons nommés : "CommandButtonGraphique1", .... , "CommandButtonGraphique4".

Depuis un module standard, si j'écris :
Sheets("Tableaux").CommandButtonGraphique2.BackColor = &H56D61C
le "CommandButtonGraphique2" devient vert.

J'écris maintenant :
Dim num As Integer
num = 2

Sheets("Tableaux").Evaluate("CommandButtonGraphique" & num).Select
le "CommandButtonGraphique2" est sélectionné.

Mais si j'écris :
Sheets("Tableaux").Evaluate("CommandButtonGraphique" & num).BackColor = &H56D61C
Ça plante.

Merci d'avance de m'expliquer pourquoi.