XL 2010 personnalisation ruban

<button id="Btn1"
    size="large"
    onAction="RUNY"
    screentip = "bla bla bla"
    getLabel="Get_Label"
    getImage="Get_Image"
/>

Sub Get_Label(control As IRibbonControl, ByRef Label)
    Select Case control.ID
        Case "Btn1":    Label = WorkSheets("feuil1").Range("A2")
        Case "....":    Label = "..."
        Case Else:      Label = "????"
    End Select
End Sub

Sub Get_Image(control As IRibbonControl, ByRef image)
    Select Case control.ID
        Case "Btn1":
            If InStr(Worksheets("feuil1").Range("B2"), "\") > 0 Then
                ' On peut charger une image à partir d'un dossier
                Set image = LoadPicture(Worksheets("feuil1").Range("B2"))
            Else
                ' Ou on peut indiquer le nom d'un msoid
                image = Worksheets("feuil1").Range("B2") ' "TraceError"
            End If
        Case "....":    image = "..."
        Case Else:      image = "????"
    End Select
    
End Sub