VBA : Somme si valeur de cellule différentes

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