VBA : Somme si valeur de cellule différentes [Résolu/Fermé]

ouep merci. plutôt simple. par contre j'hésite à réouvrir un sujet... ::

je veux créer autand de optionbouton que j'ai de ligne dans une colonne. avec bien sur comme caption le contenu de la cellule.
Alors j'ai reussi ca :

Private Sub CommandButton1_Click()
Dim i As String

    With Worksheets("Valeurs")
    
    wksV_SiteR = 3
       
       While .Cells(wksV_SiteR, 2) <> ""

            t = wksV_SiteR * 100
            
            'Création de boutons d'action sur la feuille
            With ActiveSheet
                LargeurBouton = Columns(9).Width
                GaucheBouton = Columns(9).Left + 5
                HauteurBouton = 20
                SommetBouton = wksV_SiteR * 20
            End With
    
            Set oOLE = ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, DisplayAsIcon:=False, Left:=GaucheBouton, Top:=SommetBouton, Width:=LargeurBouton, Height:=HauteurBouton)
                
            wksV_SiteR = wksV_SiteR + 1
        Wend
        
    End With

End Sub

Mais j'arrive pas à modifier la caption ...

help ??