Modifier l'intitulé d'un bouton [VBE EXCEL]

If cells(i, 3).Value <> "" then
   Shapes("CommandButton" & j).Caption = Cells(i, 3).Value
Else
   Shapes("CommandButton" & j).Visible = False
End if

If cells(i, 3).Value <> "" then
   Me.Controls("CommandButton" & j).Caption= Cells(i, 3).Value
Else
   Me.Controls("CommandButton" & j).Visible = False
End if

Dim i As Integer
'------Cette partie du code ne doit pas obligatoirement être refait à chaque fois ------
Dim Bout As MSForms.CommandButton
Dim Obj As OLEObject
    Set MesBoutons = Nothing
    Set MesBoutons = New Collection
    '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
        'Ajoute le bouton dans la collection.
        'Sa clé devient la valeur des 2 dernier chiffres de son nom
            MesBoutons.Add Obj.Object, CStr(Val(Right(Obj.Name, 2)))
        End If
    Next Obj
'--------------------------------------------------------------------
    For i = 7 To 33
        'Suite à un bug d'excel, obligé de passer par une variable objet supplémentaire.
        'Le .visible ne fonctionne pas avec la collection
        'alors que toutes les autre propriétés fonctionne.
        Set Bout = MesBoutons(CStr(i - 6))
    If Sheets("Feuil1").Cells(i, 3).Value <> "" Then
        Bout.Caption = Cells(i, 3).Value
        Bout.Visible = True
    Else
        Bout.Visible = False
    End If
    Next i
End Sub