Faire référence à un bouton dans une macro

Bonjour,

J'ai 2 profils de salariés A et B.

J'ai 2 boutons reliés à la même macro.

Je voudrais déclencher un test différent selon le bouton cliqué, du type :

"If ActiveSheet.Shapes("Button 1").Select Then"

"If ActiveSheet.Shapes("Button 2").Select Then"

Mais cela ne marche bien sûr pas. Je ne sais pas comment écrire le test du IF.

Merci pour votre aide

Bonjour Mokia, bonjour le forum,

Essaie comme ça :

Sub ajout()
Dim V As String
Dim li As Integer

If Application.Caller = "Rectangle 1" Then V = "xx"
If Application.Caller = "Rectangle 2" Then V = "yy"
li = 2
While Cells(li, 1).Value <> V
li = li + 1
Wend
Ligne = li + 1
End Sub

Merci beaucoup !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!