Sub Calcul()
Dim Nombre As Integer, ValN As Integer
Nombre = 0
' Application caller récupère le nom de l'objet cliqué.
' On récupère les 2 car à doite, ce qui donne un nombre.
' Rectangle10 donne 0, rectangle11 remet à 0 la valeur
ValN = Val(Right(Application.Caller, 2))
Select Case ValN
Case 11 ' Effacer valeur
[D2] = 0
Exit Sub
Case 10 ' Nombre = 0
Nombre = 0
Case Else
Nombre = ValN ' Sinon la valeur est les car de droite.
End Select
[D2] = [D2] * 10 + Nombre
End Sub