Private Sub CommandButton1_Click()
With CommandButton1
.BackColor = IIf(.BackColor = &HFF&, &HC00&, &HFF&) 'alterne les deux couleurs
Select Case .BackColor 'agit en fonction de la couleur
Case &HFF& 'couleur 1
'ton code
Case &HC00& 'couleur 2
'ton code
End Select
End With
End Sub