Renommer une feuille avec le nom d'un bouton

Bonjour à tous,

Je voudrais créer une nouvelle feuille à partir d'une autre et que son nom soit celui du bouton sur lequel je clic.

La macro fonctionne mais affiche "Bouton 1" dans tous les cas et pas le texte que j'ai mis sur le bouton

Sub Bouton1_Cliquer()

Worksheets("Listing").Copy After:=Worksheets("Index")

ActiveSheet.Name = Application.Caller

Range("A1").AutoFilter Field:=4, Criteria1:="Toiture"

End Sub

D'avance, merci,

Bon dimanche

Bonjour,

Teste avec ceci

Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = CommandButton1.Caption 'commandButton1 est l nom du BOUTON