Placer un bouton sur toutes le feuilles d'un meme classeur

bonsoir

j'essaie de placer un bouton sur toutes les feuilles de mon classeur nommé : WbkT

de la facon suivante en ayant préalablement déclaré toutes mes variables

With WbkT
    For i = 1 To Sheets.Count
   With WbkT.Sheets(WbkT.Sheets.Count).BUTTONS.Add(Range("E154:F155").Left, Range("E154:F155").Top, Range("E154:F155").Width, Range("E154:F155").Height)
        .Select
       .Characters.Text = "SORTANT"

        .OnAction = " 'CLASSEUR Axls'!GOOUT"
        With .Characters(Start:=1, Length:=23).Font
            .Name = "Arial"
            .FontStyle = "Normal"
            .Size = 22
            .ColorIndex = xlAutomatic
        End With
        End With
        Next i
    End With

j'obtiens un seul bouton sur une seule page , comment pourrais je modifier mon ecriture ?

Merci pour vos conseils

Salut le forum

En modifiant ceci, avec ta variable I

WbkT.Sheets(WbkT.Sheets.Count)

Mytå

j'ai essayé ceci mais cela ne marche pas !

WbkT.Sheets(i)

j'ai toujours un seul bouton de crée

Merci !! en fait ca marchait , juste que je j'avais certains boutons au bon endroit et d'autres non !!