Macro pour changer l'intitulé d'un bouton

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
Static Num As Integer 
    If Button = 1 Then 
        If Shift = 0 Then
            Num = Num + 1
        ElseIf Num > 0 Then
            Num = Num - 1
        End If
    Else 
        Num = 0 
    End If 
    CommandButton1.Caption = Num 
End Sub

Dim Coul As Long 

Sub RAZ() 
Dim Obj As OLEObject 
Dim Cel As Range, Plage As Range 
    'boucle sur les objets de la Feuil1 
    For Each Obj In Sheets("Feuil1").OLEObjects 
        'verifie s'il s'agit d'un bouton 
        If TypeOf Obj.Object Is MSForms.CommandButton Then 
            Obj.Object.Caption = "0" 
            Obj.Object.BackColor = &H8000000F 
        End If 
    Next Obj 
    Set Plage = Range("A1:B1") 'Adapter la plage aux boutons 
    For Each Cel In Plage 
        Cel = 0 
    Next Cel 
End Sub 

Private Function BT(ByVal Button As Integer, ByVal Shift As Integer, Num As Integer) As Integer 
    If Button = 1 Then 
        If Shift = 0 Then 
            Num = Num + 1 
        ElseIf Num > 0 Then 
            Num = Num - 1 
        End If 
    Else 
        Num = 0 
        If Shift <> 0 Then RAZ 
    End If 
    BT = Num 
    Select Case Num 
        Case Is >= 6: Coul = &HFF& 
        Case Is >= 3: Coul = &HFFFF& 
        Case Is >= 0: Coul = &H8000000F 
    End Select 
End Function

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
    CommandButton1.Caption = BT(Button, Shift, Val(CommandButton1.Caption)) 
    CommandButton1.BackColor = Coul 
    [A1] = CommandButton1.Caption 
End Sub 

Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
    CommandButton2.Caption = BT(Button, Shift, Val(CommandButton2.Caption)) 
    CommandButton2.BackColor = Coul 
    [B1] = CommandButton2.Caption 
End Sub