Récupérer un texte d'un bouton

Bonsoir à tous,

Pour récupérer un texte d'un bouton cliqué sur une feuille, j'utilise :

    With Sheets("Données")
        BtnTab = .Buttons(Application.Caller).Caption

BtnTab est déclarée comme un String.

Le texte dans les deux boutons est écris sur trois lignes :

1)

Tableau

de

DPC

2)

Tableau

de

RFD

Après, je devrais écrire dans [L2] selon le bouton choisi :

If BtnTab = "Tableau de DPC" Then .Range("L2").Formula = "B" _
Else: .Range("L2").Formula = "<>B"

Mais voila, même si le premier bouton est cliqué :

Tableau

de

DPC

[L2] à toujours un "<>B" !

Alors comment bien récupérer le texte d'un bouton pour faire passer le test ?

Merci d'avance.

Bonsoir

A tester

Option Explicit

Sub TestButton()
    Dim BtnTab As String
    With Sheets("Données")
        BtnTab = Replace(.Buttons(Application.Caller).Caption, vbLf, " ")
        Debug.Print "=" & BtnTab
        If BtnTab = "Tableau de DPC" Then .Range("L2").Formula = "B" _
           Else: .Range("L2").Formula = "<>B"
        'If BtnTab = "Tableau de Brigade" Then .Range("L2").Formula = "B" _
            Else: .Range("L2").Formula = "<>B"
    End With
End Sub

Bonjour Banzai64,

Merci pour la solution